Что не так в программе, она должна узнать какое число больше?

вот программа

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.

Question

Информатика

Егорка

20 января, 21:40

Что не так в программе, она должна узнать какое число больше?

вот программа

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.

+5

Ответы (2)

Знаете ответ на вопрос?

Вася · Answer 1

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 2

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

var

a, b:integer;

begin

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

readln (a, b) ;

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

else

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

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

end.

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

Что не так в программе, она должна узнать какое число больше?

вот программа

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.