Регистрация
DariKetrin
12.08.2022 18:07
Информатика
Есть ответ 👍

Можете подсказать , в чём тут ошибка? 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.​​

164
491
Посмотреть ответы 2

Ответы на вопрос:

Alusa666
Alusa666
4,4(10 оценок)

походу ошибка в пробелах

BigZnaniaFiziki
BigZnaniaFiziki
4,5(90 оценок)
Program z7;   var a,b: integer; dx,y,x: real; begin  write('введите начало отрезка а = '); readln(a);   write('введите конец отрезка b = '); readln(b);   write('введите шаг dx = '); readln(dx);       x: =a;   writeln(' x       y');   while x< =b do  begin    y: =x;     writeln(x,'     ',y);     x: =x+dx;   end; end.

Популярно: Информатика