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

kolasalnov5 kolasalnov5    1   18.07.2019 11:00    0

Ответы
ндо ндо  07.09.2020 15:22
//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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика