- Определить что, данное натуральное число а кратно числу Ь, но не кратно числу с! Составить программу.

Question

- Определить что, данное натуральное число а кратно числу Ь, но не кратно числу с! Составить программу.

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a, b, c:integer; begin write('Введите a, b, c: '); readln(a, b, c); if(a mod b = 0) and (a mod c <> 0) then writeln('Кратно b, но не кратно c') else writeln('Условие не истинно'); end.