Напечатать числа следующим образом 25 25.5 24.8 26 26.5 25.8 . . . 35 35.5 34.8 В ПАСКАЛЕ

Question

Напечатать числа следующим образом
25 25.5 24.8
26 26.5 25.8
. . .
35 35.5 34.8
В ПАСКАЛЕ

Comments

Точнее задание

Answer 1

Var i:integer;
begin
  for i := 25 to 35 do
    writeln(i, ' ', i + 0.5, ' ', i - 0.2);
end.