(ПАСКАЛЬ)
Вводяться три цілих числа. Визначити яке з них найбільше
(більше одного та більше іншого)
Екран, повинен мати вигляд:
Введіть перше число -
Введіть друге число –
Введіть третє число -
Найбільше число =

Var

a,b,c,max:integer;

Begin

Write('Введіть перше число:');

Readln(a);

Write('Введіть друге число:');

readln(b);

Write('Введіть третє число:');

Readln(c);

If (a>b) and (a>c) then max:=a;

If (b>a) and (b>c) then max:=b;

If (c>a) and (c>b) then max:=c;

Writeln('Найбільше число:',max);

end.

var a, b, c, max: integer; begin write('Введіть перше число - '); readln(a); write('Введіть друге число – '); readln(b); write('Введіть третє число - '); readln(c); if a > b then if a > c then max := a else max := c else max := b; writeln('Найбільше число = ', max); end.

или так:

begin var a := ReadInteger('Введіть перше число -'); var b := ReadInteger('Введіть друге число –'); var c := ReadInteger('Введіть третє число -'); Print('Найбільше число =', Max(a,b,c)); end.

Примеры работ: