Надо решить с использованием "if'.
Задача 1. С клавиатуры вводятся 3 числа. Вывести среднее (Например: если ввести числа 4, 10, 2, то программа должна вывести 4, т.к. оно больше 2, но меньше 10)
Задача 2. С клавиатуры вводятся 3 числа. Вывести на экран максимальное.
Не знаю насколько это правильно, на Паскале никогда не программировал, но код скину:
Задача 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.