Предмет: Информатика,
автор: belfort005
Вывести на экран квадрат и куб нечетных чисел от 1 до 9
Ответы
Автор ответа:
0
var i:byte;
begin
for i:=1 to 9 do begin
if i mod 2 <>0 then
writeln('Квадрат (',i,') = ',i*i,'; Куб (',i,') = ',i*i*i);
end;
end.
begin
for i:=1 to 9 do begin
if i mod 2 <>0 then
writeln('Квадрат (',i,') = ',i*i,'; Куб (',i,') = ',i*i*i);
end;
end.
Автор ответа:
0
1*1=1
1*1*1=1
3*3=9
3*3*3=27
5*5=25
5*5*5=125
7*7=49
7*7*7=343
9*9=81
9*9*9=729
1*1*1=1
3*3=9
3*3*3=27
5*5=25
5*5*5=125
7*7=49
7*7*7=343
9*9=81
9*9*9=729
Похожие вопросы