Надо написать программу в "Pascal"!Задание: напишите программу которая будет выводить на экран квадраты и кубы целых чисел
Ответы
Ответ дал:
0
vari,n:integer;begin read(n); writeln('Квадраты чисел'); for i:=1 to n do write(i*i,' '); writeln; writeln('Кубы чисел'); for i:=1 to n do write(i*i*i,' ');end.
Ответ дал:
0
var
i,n:integer;
begin
read(n);
writeln('Квадраты чисел');
for i:=1 to n do
write(i*i,' ');
writeln;
writeln('Кубы чисел');
for i:=1 to n do
write(i*i*i,' ');
end.
i,n:integer;
begin
read(n);
writeln('Квадраты чисел');
for i:=1 to n do
write(i*i,' ');
writeln;
writeln('Кубы чисел');
for i:=1 to n do
write(i*i*i,' ');
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад