Составить программу, которая выбирает среди всех трехзначных чисел те, которые делятся на заданное число (вводится, как исходные данные):
Вопрос посетителя
Составить программу, которая выбирает среди всех трехзначных чисел те, которые делятся на заданное число (вводится, как исходные данные):
Ответ эксперта
Program one;
Var a,i,k:integer;
Begin
WriteLn(vvedite chislo’);
ReadLn(a);
For i:=100 to 999 do
If a mod i=0 Then
WriteLn(i)
End.