Question

Задача: написать программу нахождение наибольшего числа из 4 любых.
Сейчас изучаем паскаль

Answer 1

var

   a1, a2, a3 a4 max: integer;

 

begin

   write ('Введите 4 числа: ');

   readln (a1, a2, a3, a4);

 

   if a1 >= a2 then

       max := a1

   else

       max := a2;

 

   if a2 > a3 then

       max := a2;

if a3>a4 max then

max:=a4

 

   writeln ('Максимальное из них: ', max);

 

readln

end.

Answer 2

Косяк мой,после этой строки еще строка max := a4;

Answer 3

var

a1, a2, a3 a4 max: integer;



begin

write ('Введите 4 числа: ');

readln (a1, a2, a3, a4);



if a1 >= a2 then

max := a1

else

max := a2;



if a2 > a3 then

max := a2;

if a3>a4 max then



writeln ('Максимальное из них: ', max);



readln

end.

Answer 4

begin

write ('Введите 4 числа: ');

readln (a1, a2, a3, a4);

if a1 >= a2 then

max := a1

else

max := a2;

if a2 > a3 then

max := a2;

if a3>a4 max then

max:=a4;

writeln ('Максимальное из них: ', max);

readln

end.

Вот это верный код

Answer 5

Спасииибо:з