Презентация

Домашняя работа.

Составить программу, которая выбирает среди всех трехзначных чисел те, которые делятся на заданное число (вводится, как исходные данные):

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.