40 пунктов Информатика, Паскаль 9 класс 12 задача

Question

40 пунктов
Информатика, Паскаль
9 класс
12 задача

---

Answer 1

Var a,b,c,max:real;
Begin
write('Введите 3 числа: '); readln(a,b,c);
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>b) and (c>a) then max:=c;
writeln('Наибольшее число: ',max);




End.

---

Comments

щас добавлю блок-схему