- Определить что, данное натуральное число а кратно числу Ь, но не кратно числу с! Составить программу.
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад