Задача по информатике 7 класс Дано число если оно чётное вывести YES если не чёрное то NO
Answers & Comments
Ленгит
Program pr1; uses crt; var x:integer; begin clrscr; write('Введите число: '); readln (x); if x mod 2=0 then write('YES') else if x mod 2=1 then write('NO'); readln; end.
Answers & Comments
uses crt;
var
x:integer;
begin
clrscr;
write('Введите число: ');
readln (x);
if x mod 2=0 then
write('YES')
else if x mod 2=1 then
write('NO');
readln;
end.