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

Katellil3 Katellil3    1   20.06.2019 13:30    2

Ответы
BN6573 BN6573  16.07.2020 13:18
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика