Сделайте пожалуйста это в паскале АВС.Записать файл:5 схожих целых чисел.7 всех
Сделайте пожалуйста это в паскале АВС.
Записать файл:
5 схожих целых чисел.
7 всех чисел
сумму 10 всех чисел
Произведение 10 любых чисел
программку надобно сохранить на диск и запустить ее, после этого в папке с этой программкой появится файл "output.txt", его надобно открытью
1-ые 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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.