Помогите, кто разбирается

Написать программу в Паскаль: найти наибольшее из 3 заданных чисел a, b и c

Question

Информатика

Артюня

14 декабря, 14:31

Помогите, кто разбирается

Написать программу в Паскаль: найти наибольшее из 3 заданных чисел a, b и c

+1

Ответы (1)

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

Машара · Answer 1

Простая программка для сравнения 3 чисел (min_max_1) :

Program Min_Max;

var a, b, c, min, max:integer;

begin

write ('Введите 3 числа для сравнения (через пробел) : ') ; read (a, b, c) ;

min:=a; max:=a;

if b>max then max:=b; if b
if c>max then max:=c; if c
writeln ('Максимальное число : ', max) ;

writeln ('Минимальное число : ', min) ;

readln;

end.

Помогите, кто разбираетсяНаписать программу в Паскаль: найти наибольшее из 3 заданных чисел a, b и c

Помогите, кто разбирается

Написать программу в Паскаль: найти наибольшее из 3 заданных чисел a, b и c