Составить программу,
которая выбирает среди всех трехзначных чисел те, которые делятся на заданное
число (вводится, как исходные данные):
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.
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.
Комментариев нет:
Отправить комментарий