Question

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

Answer 1

//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.