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

Question

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

Answer 1

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.

Comments

Вы правы, условие стоит заменить на

---

if c mod 187 then

---

if (c mod 187=0) - поправка

Answer 2

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.