Uses crt; var a: integer; begin for a: =10000 to - вопрос №10000999998965024 от диана2434 24.03.2021 17:41

Question

Информатика: 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. из этой программы сделать программу с циклом repeat

диана2434 · Answer

Uses crt;var a:integer;begina:=10000;repeatif (a mod 133=125) and (a mod 134=111) then writeln(a);a:=a+1;until a 99999;end....