Составить алгоритм и написать программу: Среди трехзначных чисел найдите те, которые делятся на 11 и на 17.

Var num:integer;

begin

writeln ('0 - выход') ;

repeat

write ('Введите число: ') ;

readln (num) ;

if (((num mod 11) = 0) or ((num mod 17) = 0)) then writeln ('Это число делится на 11 или 17')

else writeln ('Это число не делится ни на 11, ни на 17') ;

until num = 0;

end.

Var a, b, c:integer;

begin

writeln ('Введите количество цифр:') ;

read (a) ;

for b:=1 to a do begin

readln (c) ;

if (c mod 11 = 0) and (c mod 17 = 0) then

writeln ('число ', c, ' удовлетворяет условию') ;

end;

end.