Kathrithris
6 год назад
Program chetnoe;
Uses crt;
Var x:_______;
Begin
Clrscr;
Writeln ('Ведите двузначное число')
Readln(___);
IF X mod 2 = __ then Writeln ('Число четное')
______ Writeln ('Число_________');
End.
Открыть файл Chilo.pas. Заполните пропуски в программе, которая по введенному с клавиатуры двузначному числу определяется ли оно четным.
ОТВЕТЫ
Filonovich
Jul 5, 2019
Program chetnoe;Uses crt;Var x:integer;BeginClrscr;Writeln (Ведите двузначное число);Readln(x);IF X mod 2=0 then Writeln (Число четное)else Writeln (Число нечетное);End.
107
