Надо решить с использованием "if'. Задача 1. С клавиатуры вводятся 3 числа. Вывести...

Question

Надо решить с использованием "if'. Задача 1. С клавиатуры вводятся 3 числа. Вывести среднее (Например: если ввести числа 4, 10, 2, то программа должна вывести 4, т.к. оно больше 2, но меньше 10)Задача 2. С клавиатуры вводятся 3 числа. Вывести на экран максимальное. ​

Answer 1

Не знаю насколько это правильно, на Паскале никогда не программировал, но код скину:

Задача 1:

var a, b, c: integer;

begin

   readln (a);

   readln (b);

   readln (c);

   if a > b then

       if a < c then

           write (a);

   if a > c then

       if a < b then

           write (a);

   if b > a then

       if b < c then

           write (b);

   if b > c then

       if b < a then

           write (b);

   if c > a then

       if c < b then

           write (c);

   if c > b then

       if c < a then

           write (c);

   if a = b then

       a := b;

       if b = c then

           a := b;

           c := a;

   write (a);

readln

end.

Задача 2:

var a, b, c: integer;

begin

   readln (a);

   readln (b);

   readln (c);

   if a > b then

       if a > c then

           write (a);

   if b > a then

       if b > c then

           write (b);

   if c > a then

       if c > b then

           write (c);

   if a = b then

       a := b;

       if b = c then

           a := b;

           c := a;

   write (a);

readln

end.