Krab Вark
Оракул
(56968)
13 лет назад
var x:integer; begin for x:=4 to 20 do writeln(x/2:5:1,sqr(x/2)+2:10:5); readln end.
var x:real; begin x:=2; while x<=10 do begin writeln(x:5:1,sqr(x)+2:10:5); x:=x+0.5 end; readln end.
var x:real; begin x:=2; repeat writeln(x:5:1,sqr(x)+2:10:5); x:=x+0.5 until x>10; readln end.
1)Используя цикл For
2)Используя While....Do
3)Используя Repeat....Until