Ответы
Ответ дал:
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад