3.5
,
3.5.1.
:
- while (-)
- repeat (-)
- for ( )
(-) while. :
:
. 2.4.3 ( 14) q r .
program n_14;
var , , q, : integer;
begin
writeln (' ');
write (' >>');
readln ();
write (' >>');
read () ;
r :=;
q:=0;
while r>=x do
begin
r:=r-y;
q:=q+1
end;
writeln (' q=', q) ;
writeln (' r=', r)
end.
= -10 = 3? ?
|