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
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.