Срочно!!! С паскале!!! Сделать программу!!! Даны два числа. Вывести наибольшее из этих...

Question

Срочно!!! С паскале!!! Сделать программу!!!
Даны два числа. Вывести наибольшее из этих чисел, увеличенное в три раза.
Даны три числа. Вывести наименьшее из этих чисел, уменьшенное на 10.

Answer 1

Var a,b:real;
Begin
Write('Введите два числа: ');
ReadLn(a,b);
if a > b then WriteLn(a*3)
else WriteLn(b*3);
Write('Введите три числа: ');
Read(a,b);
if a > b then a:=b;
ReadLn(b);
if a > b then a:=b;
WriteLn(a-10);
End.


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

Введите два числа: 1 3
9
Введите три числа: 2 1 3
-9

Comments

спасибо