Записать в файл любые 10 чисел, используя функцию случайных чисел. Найти модуль суммы и квадрат произведения этих чисел _______ Через Pascal ABC
Записать в файл любые 10 чисел, используя функцию случайных чисел. Найти модуль суммы и квадрат произведения этих чисел
_______
Через Pascal ABC
Гость
Ответ(ы) на вопрос:
Гость//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.
Не нашли ответ?
Похожие вопросы