Question

Срочно! Как на Pascal написать от 4.71 до 5??? ​

Answer 1

Program z1;

Var

a:real;

Begin

a:=4.70;

While a<5 do

begin

a:=a+0.01;

writeln(a) ;

End;

End.