uses crt; var a:integer; begin for a:=10000 to 99999 do if (a mod 133=125) and (a mod 134=111) then writeln(a); end. Из этой программы сделать программу с циклом while
Answers & Comments
contrlc
Uses crt; var a:integer; begin a:=10000; while(a <= 99999)do begin if (a mod 133=125) and (a mod 134=111) then writeln(a); a:=a+1; end; end.
Answers & Comments
var a:integer;
begin
a:=10000;
while(a <= 99999)do
begin
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
end;
end.