Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.