Напишите программу(turbo pascal)выводящую на экран кубы чисел от 1 до 20.заранее спасибо))
Напишите программу(turbo pascal)выводящую на экран кубы чисел от 1 до 20.заранее спасибо))
Гость
Ответ(ы) на вопрос:
Гость Program zadanie;
Var a,i:integer;
Begin
For i:=1 To 20 Do
begin
a:=i;
a:=sqr(a);
Writeln(a);
end;
End.
Не нашли ответ?
Похожие вопросы