Question

Написать программу которая запрашивала бы целое число и выводило любое его значение кроме 13. Если заданное число равно 13 , то вместо него печаталось 77. На языке паскаль

Answer 1

var

x : integer;

begin

write('x=');

readln(x);

if x = 13 then

   writeln(77)

else

   writeln(x);

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая выполняет описанные вами условия:

program AvoidThirteen;

var
  userInput: integer;

begin
  // Запрос у пользователя ввода целого числа
  write('Введите целое число: ');
  readln(userInput);

// Проверка условия: если введенное число равно 13, выводим 77, иначе выводим введенное число
  if userInput = 13 then
    writeln('Вместо 13 выводится 77')
  else
    writeln('Введенное число: ', userInput);

// Ожидание ввода перед закрытием программы (необязательно)
  readln;
end.

Эта программа запрашивает у пользователя ввод целого числа, затем проверяет условие: если число равно 13, выводит 77, в противном случае выводит введенное число.