(ПАСКАЛЬ) Вводяться три цілих числа. Визначити яке з них найбільше (більше одного та...

Question

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

Answer 1

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.

Answer 2

Ответ:

• 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.

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

---

---