Написать программу ** Паскаль 4. Написать программу ** Паскале нахождения наибольшего из...

Question

Написать программу на Паскаль
4. Написать программу на Паскале нахождения наибольшего из трех данных чисел.
5. Написать программу на Паскале нахождения периметра прямоугольника, ширину и длину вводить с клавиатуры.
6. Написать программу на Паскале вычисления значения выражения у=12х2-45х-4

Answer 1

//4. Написать программу на Паскале нахождения наибольшего из трех данных чисел.

var
a,b,c:integer;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if a>b then
if a>c then
writeln('Ответ ', a)
else
writeln('Ответ ', c)
else
if b>c then
writeln('Ответ ', b)
else
writeln('Ответ ', c)
end.

//5.Написать программу на Паскале нахождения периметра прямоугольника, ширину и длину вводить с клавиатуры.

var
a,b:integer;
begin
writeln('Введите a,b');
readln(a,b);
writeln('P= ', (a+b)*2);
end.

//6. Написать программу на Паскале вычисления значения выражения у=12х2-45х-4

var
x:integer;
begin
writeln('Введите x');
readln(x);
writeln('Ответ ', 12*power(x,2)-45*x-4)
end.

Comments

PascalABC