Проверить существуют ли натуральные числа a<100 для которых a mod7=3
например 10.
Да,числа : 3,10,17,24,31,38,45,52,59,66,73,80,87,94 P.S. Pascal ABC var a:integer; begin for a:=1 to 100 do begin if (a mod 7 =3)then writeln(a); end; end.