составить программу "Является ли введённое число чётным?" пожалуйста оочень надо
Answers & Comments
infor5
Var n:integer; begin write('введите число'); read(n); if n mod 2=0 then write('данное число четное') else write('данное число не явл четным'); end.
Answers & Comments
begin
write('введите число');
read(n);
if n mod 2=0 then write('данное число четное')
else write('данное число не явл четным');
end.