Вывести на экран квадрат и куб нечетных чисел от 1 до 9

leila323 leila323    1   27.05.2019 06:40    0

Ответы
kofer kofer  01.10.2020 12:33
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.
ПОКАЗАТЬ ОТВЕТЫ
alexeikomarow alexeikomarow  01.10.2020 12:33
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика