Ответ: Var I : Integer;
Begin
For I := 100 to 999 do
Begin
If I mod 47 = 43 then WriteLn(I);
End;
End.
Источник znanija.site
Разработайте программу поиска 3-ехзначных чисел, которые при делении на 47 дают в остатке 43. Зафиксируйте свои действия в каждом этапе решения задачи. (использовать команды DIV, MOD)!!! (SUM и SUMM нельзя!)
— Правильный ответ на вопрос найдете нижеОтвет: Var I : Integer;
Begin
For I := 100 to 999 do
Begin
If I mod 47 = 43 then WriteLn(I);
End;
End.
Источник znanija.site