Вычислить кубы чисел от 10 до 20 в паскале. используя три цикла: for, while, repeat

Dydina5555521 Dydina5555521    2   10.08.2019 02:00    1

Ответы
darinachirkova2 darinachirkova2  04.10.2020 08:25
for
var i:integer;
begin
for i:=10 to 20 do
writeln(i,'^3 = ', i*i*i);
end.
while
var i:integer;
begin
i:=10;
while i<=20 do 
begin
writeln(i,'^3 = ', i*i*i);
inc(i);
end;
end.
repeat
var i:integer;
begin
i:=10;
repeat
writeln(i,'^3 = ', i*i*i);
inc(i);
until i>20;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика