Составьте программу возведения в квадрат всех целых чисел от 0 до 50. 1 )использовать цикл с предусловием. 2 )использовать цикл с постусловием. 3 )использовать цикл с параметром.
Program sqr; Var i:integer; begin while i <= 50 do //1) begin write(i*i, ' '); Inc(i); end; i:=0; writeln; repeat //2) write(i*i, ' '); Inc(i); until i > 50; writeln; for i:=1 to 50 do write(i*i, ' '); //3) end.