Консультация № 189017
27.03.2016, 11:59
0.00 руб.
0 1 1
Здравствуйте! У меня возникли сложности с таким вопросом:
не могу написать программу в FreePascal с помощью циклических алгоритмов

Найти все трехзначные числа,которые делятся на n или содержать n

Обсуждение

давно
Старший Модератор
31795
6196
28.03.2016, 11:30
общий
это ответ
Здравствуйте, natalya270996!

Смотрите приложение:
[code lang=pascal h=100]var
a,n:integer;
begin
repeat
write('Enter n:');readln(n);
until n<>0;
for a:=100 to 999 do
if(a mod n = 0)or
(a mod 10 = n)or(a div 10 =n)or
(a mod 100= n)or(a div 100=n)then write(a:5);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа