Прочитайте из файла f1 все числа найдите их произведение результат выведите в файл f2

Var   a,s: real; f1,f2: text; begin assign(f1,'f1.txt'); reset(f1); assign(f2,'f2.txt'); rewrite(f2); s: =1; while not eof(f1) do begin read(f1,a); s: =s*a; end; write(f2,s); close(f1); close(f2); end.

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var a: =readarrinteger('вводите численность по классам: ',           readinteger('количество классов: '));   writeln('число учеников в самом многочисленном классе превышает '           'число учеников в самом малочисленном классе на ',           a.max-a.min);   writeln('средняя наполняемость классов равна ',trunc(a.average)) end. пример количество классов: 6 вводите численность по классам: 31 29 33 24 30 29 число учеников в самом многочисленном классе превышает число учеников в самом малочисленном классе на 9 средняя наполняемость классов равна 29

ответ:

объяснение:

информатика

- наука об общих свойствах информации, закономерностях и методах её поиска и получения, записи, хранения, передачи, переработке, распространения и использования в разл. сферах человеческой деятельности. формирование и. как науки связано с появлением и развитием электронно-вычислит. техники. опыт моделирования, построения алгоритмов и составления программ для решения конкретных научных и техн. на эвм, согласования мощности и структуры вычислит, средств со сложностью и характером этих стали важнейшей частью и эта предметная область остаётся для и. основной и допускает более узкое и конкретное толкование термина "и." как науки о процессах и методах обработки информации.