Составьте программу в Pascal ABC. Даны три числа. Найти наименьшее.

Question

Информатика

Ноябрина

13 ноября, 02:06

Составьте программу в Pascal ABC. Даны три числа. Найти наименьшее.

+3

Ответы (1)

Знаете ответ?

Эмилий · Answer 1

Var a, b, c, min, max, s: integer; begin write ('Ведите числo а ') ; readln (a) ; min:=a; max:=a; write ('Ведите числo b ') ; readln (b) ; if bmax then max:=b; write ('Ведите числo c ') ; readln (c) ; if cmax then max:=c; writeln ('Минимальное - ', min) ; end.