Регистрация
Настя12111978
11.11.2020 20:45
Информатика
Есть ответ 👍

Сделайте это в паскале авс. записать файл: 5 одинаковых целых чисел. 7 любых чисел сумму 10 любых чисел произведение 10 любых чисел

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

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

Lizaliza123123
Lizaliza123123
4,6(76 оценок)

программу надо сохранить на диск и запустить ее, после этого в папке с этой программой появится файл "output.txt", его надо открытью

первые 5 чисел одинаковые

после их будут идти 7 любых чисел

потом сумма 10 рандомных чисел

затем произведение 10 случайных чисел

программа:

var a,i: integer;

t: text;

begin

assign(t,'output.txt');

rewrite(t);

a: =random(100);

for i: =1 to 5 do begin write(t,a,' '); end;

writeln;

for i: =1 to 7 do begin write(t,random(100),' '); end;

writeln;

a: =0;

for i: =1 to 10 do begin a: =a+random(100); end;

write(t,a,' ');

a: =1;

for i: =1 to 10 do begin a: =a*random(100); end;

writeln(t,a);

close(t);

end.

alina067
alina067
4,7(11 оценок)
Вот ответ в приложении. смотри

Популярно: Информатика