воскресенье, 11 мая 2014 г.

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

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

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.

Комментариев нет:

Отправить комментарий