Записать в файл любые 10 чисел, используя функцию случайных чисел. найти модуль суммы и квадрат произведения этих чисел через pascal abc

260

395

Посмотреть ответы 2

Ответы на вопрос:

qwerty665

Информатика

4,6(12 оценок)

//pascal abc.net v3.0 сборка 1111 var f: text; s,a,i: integer; p: int64; begin randomize; p: =1; for i: =1 to 10 do begin; a: =random(11)-3; write(a: 4); p: =p*a; s: =s+a; end; p: =sqr(p); s: =abs(s); assign(f,'text.txt'); rewrite(f); writeln(f,p); writeln(f,s); close(f); end.