Информатика, опубликовано 2018-08-22 23:45:37 by Гость

Определить, делится ли данное положительное целое число на 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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.