Question

СРОЧНО
Дан фрагмент программы , допишите раздел объявления переменных.

Begin.
Read (K) ;
C:=K mod 2;
If C=o then V:=true else V:=false;
If V then Write (‘Четное’) else write (‘Нечетное’);
End.

Answer 1

var k,c,o: Integer;
V: Boolean;
Begin
Read(K);
C:=K mod 2;
If C=o then V:=true else V:=false;
If V then Write ('Четное') else write ('Нечетное');
End.