Question

1.Даны две переменные x и y. Возвести введенное число в квадрат, в куб, в 4 и 5 степень. Написать на языке программирования Паскаля​
2. Задан вес в граммах. Определите вес в тоннах и килогграммах.
Помогите пожалуйста, срочно нужно

Answer 1

Ответ:

pascal

Объяснение:

1)

var x, y: real;

begin

 Write('Введите переменные x и y: '); ReadLn(x, y);

 WriteLn('x2 = ', sqr(x):1:2, ' y2 = ', sqr(y):1:2);

 WriteLn('x3 = ', sqr(x)*x:1:2, ' y3 = ', sqr(y)*y:1:2);

 WriteLn('x4 = ', sqr(sqr(x)):1:2, ' y4 = ', sqr(sqr(y)):1:2);

 WriteLn('x5 = ', exp(5*ln(x)):1:2, ' y5 = ', exp(5*ln(y)):1:2);

end.

2)

var ves: real;

begin

 Write('Введите вес в граммах: '); ReadLn(ves);

 WriteLn(ves, ' гр. = ', ves/1000:1:3, ' кг. = ', ves/1000000:1:6, ' тонн');

end.