Question

Информатика Паскаль, 8 класс. Решить 1 и 2 номер. ​

Answer 1

Задача 1

var

 x: Integer;

 cost: Real;

begin

 Write('Введите сколько стоит 1 кг конфет: ');

 Read(cost);

 Write('Введите x: ');

 Read(x);

 WriteLn(x, ' кг конфет стоит: ', x*cost:0:1)

end.

Задача 2

var

 v, s: Real;

begin

 Write('введите скорость лодки: ');

 Read(v);

 Write('введите расстояние: ');

 Read(s);

 WriteLn('необходимое время: ', s / (v + 0.3):0:1)

end.