Var
f: Text;
n, s, e: integer;
begin
n := 0;
s := 0;
Assign(f, 'input.txt');
Reset(f);
while not Eof(f) do
begin
readln(f,e);
n := n + 1;
s := s + e
end;
Close(f);
writeln('В файле ', n, ' чисел; их сумма равна ', s)
end.
Тестовое решение:
В файле 10 чисел; их сумма равна 213
Содержимое файла input.txt:
24
37
14
-6
42
58
3
14
0
27
1. Вправо, вниз, вниз. Вниз, вниз, вправо. Вниз, вправо, вниз.
2. А. Нет Б. Нет В. Да Г. Да Д. Да Е. Нет
А) Людоед,мальчик с пальчик,3 богатыря,Колобок.
Б)Колобок.
В)Дом бабы яги,Дровосек,Страшила,Снегурочка.
Г)Чебурашка,Дом бабы яги,Буратино.
Красный : входить в кабинет без разрешения учителя. Толкаться в дверях. Трогать разъёмы. Прикасаться к проводам питания. Приносить в класс компакт диски... Пытаться самостоятельно исправить проблемы. Включать игры которые не относятся к уроку. Работать грязными руками. Прикасаться к екрану или задней части монитора. Работать на компьютере во влажной одежде. Класть вещи на составные части компьютера. Удалять папки и файлы без разрешения учителя.
зеленый: все остальное.
2 задание
2, 3 , 1 , 4, 5, 7, 6, 8, 9.