Если число делится на 3 и на 5, то оно делится и на их произведение, т.е. на 15.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n mod 15=0 then Writeln('Число делится на 3 и 5 одновременно')
else Writeln('Число не делится на 3 и 5 одновременно')
end.
<u>Пример</u>
Введите натуральное число: 1115
Число не делится на 3 и 5 одновременно
Решение Вашей задачи находится в прикреплённом файле. Если у Вас возникнут вопросы по коду, напишите мне и я Вам с удовольствием помогу.
Ответ:
Var a, i:integer;
Begin
Writeln('Введите число') ;
Read(a) ;
For i:=1 to 9 do writeln( a, '*', i, '=', a*i) ;
End.
В 6-ричной и выше, 7-ричной 8-ричной и т.д.
Папирус- это исторический документ.
Использовался еще в III тысячелетии до н. э.