Дана программа на языке Паскаль. Заполни пропуски.

Вывод на экран квадратов чисел от 1 до 42.

var
: integer;
begin
for n:=1 todo
do
writeln(sqr()
));
readln;
end.

Question

Информатика: Дана программа на языке Паскаль. Заполни пропуски. Вывод на экран квадратов чисел от 1 до 42. var : integer; begin for n:=1 todo do writeln(sqr() )); readln; end.

Miki236 · Accepted Answer

Program sport;
var h1, m1, s1, h2, m2, s2, h, m, s, st, fin, p, i : integer;
begin

writeln('Старт.');
write('Количество часов ');
read(h1);
write('минут ');
read(m1);
write('секунд ');
read(s1);

st:=s1+m1*60+h1*3600;

writeln('Финиш.');
write('Количество часов ');
read(h2);
write('минут ');
read(m2);
write('секунд ');
read(s2);

fin:=s2+m2*60+h2*3600;

p:=fin-st;

i:=p;

s:=p mod 60;

p:=p div 60;

m:=p mod 60;

p:=p div 60;

h:=p mod 60;

writeln('Итог - ',h,' часов ', m,' минут ',s,' секунд ');
write(' Всего ',i,' секунд.');

end.

Дана программа на языке Паскаль. Заполни пропуски. Вывод на экран квадратов чисел от 1 до 42. var : integer; begin for n:=1 todo do writeln(sqr() )); readln; end.

MOGZ ответил

Дана программа на языке Паскаль. Заполни пропуски.

Вывод на экран квадратов чисел от 1 до 42.

var
: integer;
begin
for n:=1 todo
do
writeln(sqr()
));
readln;
end.