Question

Var n,n1,n2,n3:integer; begin; readln (n); n1:=n mod 10; n:=n div 10; n2:=n mod 10; n3:=n div100 if (n1=n2) and (n2=n3) then writeln ('Y') else writeln ('N'); end. Ошибка в n3...... Как исправить и описание. Программа Паскаль.

Answer 1

Ответ:

поставить пробел между div и 100?

Объяснение:

Не шарю в Паскале, но между ними нет пробела, в то время как у остальных есть

Answer 2

Ваша программа на Pascal содержит ошибку в строке n3:=n div100, которая вызывает синтаксическую ошибку. Вместо этого, вы должны использовать оператор деления div для разделения значения n на 100.

Вот исправленный код и описание программы:

pascalCopy code
Var
  n, n1, n2, n3: integer;

begin
  readln(n);
  n1 := n mod 10;
  n := n div 10;
  n2 := n mod 10;
  n3 := n div 100;
  
  if (n1 = n2) and (n2 = n3) then
    writeln('Y')
  else
    writeln('N');
end.

Описание программы:

1. Объявление переменных n, n1, n2 и n3 типа integer.
2. Считывание значения n с помощью процедуры readln.
3. Получение последней цифры числа n и сохранение ее в n1 с помощью оператора деления по модулю mod.
4. Деление значения n на 10 для удаления последней цифры и сохранение оставшегося значения в n.
5. Получение новой последней цифры числа n и сохранение ее в n2 с помощью оператора деления по модулю mod.
6. Деление значения n на 100 для удаления двух последних цифр и сохранение оставшегося значения в n3 с помощью оператора деления div.
7. Проверка условия: если n1, n2 и n3 равны друг другу, то выводится сообщение 'Y', иначе выводится сообщение 'N' с помощью процедуры writeln.
8. Завершение программы.

Теперь ошибка в строке n3:=n div100 исправлена, и программа должна работать должным образом.