Можете подсказать , в чём тут ошибка? Program School;
Var
z, e, n, t, i: integer;
Begin
z:=0;
e:=0;
Writeln ('Введите четырехзначное число');
Readln (t);
For i:=1 to 1 do
Begin
ni=t Mod 10;
ti=t Div 10;
If n Mod 2 = 0 Then e:= e+1 else z:= z+1
end;
Write ('Четные цифры', e, 'Нечетные цифры',z);
end.​​

shwabmitia    1   30.04.2021 11:06    0