Question

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

Answer 1

Ответ:

пробелы!!!!!! !!!!!!!!!

Answer 2

Прежде всего, кажется, что у вас есть несколько ошибок в вашем коде. Вот исправленная версия:

pascalCopy code
Program School;

Var
  z, e, n, t, i: integer;

Begin
  z := 0;
  e := 0;

  Writeln('Введите четырехзначное число');
  Readln(t);

  For i := 1 to 4 do
  Begin
    n := t Mod 10;
    t := t Div 10;

    If n Mod 2 = 0 Then
      e := e + 1
    else
      z := z + 1;
  End;

  Write('Четные цифры: ', e, ' Нечетные цифры: ', z);
End.

Исправленные моменты:

1. Заменил For i := 1 to 1 do на For i := 1 to 4 do, чтобы цикл выполнялся четыре раза (по количеству цифр в четырехзначном числе).
2. Заменил ni = t Mod 10; на n := t Mod 10;, чтобы корректно сохранить значение текущей цифры.
3. Исправил ti = t Div 10; на t := t Div 10;, чтобы обновить значение переменной t.
4. Добавил двоеточие после Write для корректного отображения результатов.