среда, 21 мая 2014 г.
воскресенье, 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.
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.
Подписаться на:
Сообщения (Atom)