В магазин привезли X кг картофеля. В 1-ый день продали 1/4

В магазин привезли X кг картофеля. В первый день продали 1/4 всего картофеля,во 2-ой день - 2/5 остатка. Сколько кг картофеля осталось реализовать? На языке Паскаль надобно написать

Задать свой вопрос
1 ответ
Var
  x,prod1,prod2,ost:real;
begin
  Write('Привезено картофеля, кг: ');
  Read(x);
  prod1:=x*1/4; продано в первый денек
  ost:=x-prod1; остаток от реализации
  prod2:=ost*2/5; продано во 2-ой день
  ost:=x-(prod1+prod2);
  Writeln('Оcталось продать, кг: ',ost)
end.

Образцы
Привезено картофеля, кг: 2540
Оcталось реализовать, кг: 1143

Привезено картофеля, кг: 743
Оcталось реализовать, кг: 334.35
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт