Определить, делится ли данное положительное целое - вопрос №450199435 от Анастасия22Кот11 06.06.2020 00:08

Question

Информатика: Определить, делится ли данное положительное целое число на 3 и на 5.

Анастасия22Кот11 · Answer

var s,n,i:integer; d,h:string; begin
writeln('Введите число'); Readln(n);
if (n mod 3 = 0) and (n mod 3= 0) then
writeln('число ',n, ' делится на 3 и на 5')
else
writeln('число ',n, ' не делится на 3 и на 5')
end.