Question

Что не так в программе, она должна узнать какое число больше??? вот программа program primer; var a,b,с:integer; Begin readln (a,b,с); if a>b then writeln(a) else if b>c writeln (b) else if c>a writeln (c); end.

Answer 1

У меня вот такая программа получилась:

var

a,b:integer;

begin

write('Введите в одной строке два целых числа и нажмите <Enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else 

if a>b then writeln(a,' больше')

else writeln(b,' больше')

end.

Answer 2

If a>b then write(a)
нехорошо, так как может оказаться что с больше обоих, тогда вместо с печатается неверный ответ а

надо доп проверку

if a>b then
   if a>c then
       write(a)
   else write(c)
else
     if b>c then  write(b)
     else write(c)

*только разумеется тут надо поправить правильность написания кода))

Answer 3

Программа, которую вы предоставили, содержит ошибку в синтаксисе. Все операторы "writeln" должны быть заключены в скобки. Кроме того, необходимо добавить пробелы между операторами и аргументами.

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

program primer; var a, b, c: integer; Begin readln(a, b, c); if a > b then writeln(a) else if b > c then writeln(b) else if c > a then writeln(c); end.

Эта программа считывает значения трех чисел (a, b и c) с помощью оператора readln. Затем она сравнивает числа и выводит на экран наибольшее из них.

Если число a больше числа b, то программа выводит значение a. Если число b больше числа c, то программа выводит значение b. Если число c больше числа a, то программа выводит значение c.

Например, если ввести числа 5, 8 и 3, то программа выведет число 8, так как оно является наибольшим из трех введенных чисел.