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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

var

  x,prod1,prod2,ost:real;

begin

  Write(‘Привезено картофеля, кг: ‘);

  Read(x);

  prod1:=x*1/4; { продано в первый день }

  ost:=x-prod1; { остаток от продажи }

  prod2:=ost*2/5; { продано во второй день }

  ost:=x-(prod1+prod2);

  Writeln(‘Оcталось продать, кг: ‘,ost)

end.

Примеры

Привезено картофеля, кг: 2540

Оcталось продать, кг: 1143

Привезено картофеля, кг: 743

Оcталось продать, кг: 334.35