Информатика, опубликовано 25.05.2020 12:16
Уровень A. Напишите программу, которая находит среднее арифметическое всех чисел, записанных в файле в столбик, и выводит результат в другой файл.(ошибка времени исполнения)
var
a, b, c: integer;
d: text;
begin
assign(d,'input.txt');
reset(d);
c:=0;
b:=0;
while not eof do
begin
readln(d,a);
c:= c + a;
b:= b + 1;
end;
close(d);
assign (d,'output.txt');
rewrite(d);
write(d,c/b);
close(d);
end.
Ответы
Ответ оставил: Гость
В клетке B, потому что в А он упрётся в стенкуОтвет оставил: Гость
#include <iostream>#include <fstream>
using namespace std;
int main()
{
ifstream in;
ofstream out;
in.open("input.txt");
out.open("output.txt");
int n;
in >> n;
for (int i=1; i<=n; i++) out << 2*i-1 << " ";
in.close();
out.close();
return 0;
}
Пример:
Файл input.txt:
5
Файл output.txt^
1 3 5 7 9
Ответ оставил: Гость
1)если она присуствует2)если компьютер исправлен
3)если есть электричество
Ответ оставил: Гость
Pascal ABC:var a, b: Integer;
begin
readln(a);
readln(b);
b:=b-1;
for a:=a+1 to b do
writeln(a);
end.
Пример:
Вводим 1 и 5. Получаем:
2
3
4
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
