задание:Дано целое число. Определить: Является ли оно четным; Оканчивается ли оно цифрой 4; Делится ли оно на 6.
моя прога:
var y:integer;
begin
readln
if y mod 2 = 0 then writeln('число четное'
if y mod 10 = 4 then writeln('число заканчивается на 4'
if y mod 6 = 0 then writeln('число делится на 6'
end.
программа на базе 9 класса паскаль.
моя прога:
var y:integer;
begin
readln
if y mod 2 = 0 then writeln('число четное'
if y mod 10 = 4 then writeln('число заканчивается на 4'
if y mod 6 = 0 then writeln('число делится на 6'
end.
программа на базе 9 класса паскаль.