Ответ:
program Test
var
n: Integer;
begin
Write ('Введите число: ');
ReadLn (n);
if n mod 2 = 0 then
WriteLn ('четное')
else
WriteLn ('не четное');
ReadLn;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Ответ:
program Test
var
n: Integer;
begin
Write ('Введите число: ');
ReadLn (n);
if n mod 2 = 0 then
WriteLn ('четное')
else
WriteLn ('не четное');
ReadLn;
end.
else
WriteLn ('не четное');