Question

Помогите решить задачи в паскале ​

Answer 1

Ответ:

1. program StoimostPokupki;

var

 X, Y, A, B: real;

 Stoimost: real;

begin

 writeln('Введите количество килограмм яблок (X): ');

 readln(X);

 writeln('Введите цену за килограмм яблок (Y): ');

 readln(Y);

 writeln('Введите количество килограмм мандаринов (A): ');

 readln(A);

 writeln('Введите цену за килограмм мандаринов (B): ');

 readln(B);

 

 // Вычисляем стоимость покупки

 Stoimost := X * Y + A * B;

 

 writeln('Стоимость покупки: ', Stoimost:0:2, ' рублей');

end.
2. program OptimalWeight;

var

 Height, Weight, OptimalWeight: real;

begin

 writeln('Введите ваш рост (в сантиметрах): ');

 readln(Height);

 writeln('Введите ваш вес (в килограммах): ');

 readln(Weight);

 

 OptimalWeight := Height - 100; // Рассчитываем оптимальный вес

 

 writeln('Оптимальный вес: ', OptimalWeight:0:2, ' кг');

 

 if Weight > OptimalWeight then

   writeln('Ваш вес больше нормы');

end.

Объяснение:

текст чтобы было