Составьте ,пожалуйста ,программу в паскале :сравнение трех чисел.(нахождение большего)

1

Ответы и объяснения

2013-09-14T16:45:31+00:00
program zbc;
var a,b,c: integer;
begin
write ('Введите три целых числа: a,b,c');
read (a,b,c);
if a>b and a>c then write ('Наибольшее число a');
if b>a and b>c then write ('Наибольшее число b');
if c>b and c>a then write ('Наибольшее число c');
end.