Question

Написать программу.Дано два числа. Если хотя бы одно из них больше 30, то вывести yes, иначе no.Ввод числа пользователем. var a,b:integer;beginreadln(a,b);if (a>30)or(b>30) then writeln('18) else writeln('36);end. ИСПРАВЬТЕ ПРОШУ, ТУТ ЕСТЬ ОШИБКА..​

Answer 1

• var a,b:integer;
• begin
• readln(a,b);
• if (a>30)or(b>30)
• then writeln('Yes') else writeln('No');
• end.

Answer 2

Ответ:

var a,b:integer;

begin

readln(a,b);

if (a>30)or(b>30)

then writeln('yes') else writeln('no');

end.

Объяснение:

текст в скобочках всегда в апострофах

Answer 3

Ваша программа содержит несколько ошибок. Вот исправленный вариант:

pascalCopy code
program CheckNumbers;
var
  a, b: integer;
begin
  writeln('Введите два числа:');
  readln(a, b);

  if (a > 30) or (b > 30) then
    writeln('yes')
  else
    writeln('no');
end.

Изменения и исправления:

1. Выводится приглашение для ввода чисел.
2. > используется для сравнения чисел, а не >.
3. Закрывающая кавычка в writeln('yes') была пропущена.
4. Исправлены символы, используемые для обозначения строк в writeln.