
Mogamand
4 год назад
Вывести таблицу из квадратов чисел от 0 до 1 с шагом 0.1. Ответ на языке Pascal
ОТВЕТЫ

West Kenneth
Oct 24, 2020
//Pascal
var i: real;
begin
while i < 1 do
begin
writeln(i:0:1, ' в квадрате = ', sqr(i):0:2);
i := i + 0.1;
end;
readln;
end.
var i: real;
begin
while i < 1 do
begin
writeln(i:0:1, ' в квадрате = ', sqr(i):0:2);
i := i + 0.1;
end;
readln;
end.
252
Смежные вопросы: