Program one;
var s,a,b,c,d,m:real;
begin
writeln('Введите цену яблок , груш ');
readln(s,a);
writeln('Введите кол-во яблок , груш в кг ');
readln(b,c);
m:=(a*b)+(c*d);
if s >= m then writeln('Денег хватит',m)
else
writeln('Денег не хватит');
end.
Ответ:
Формулы на картинках.
Объяснение:
Проценты сначала убиваешь разделив на 100 (0,74 и т.д.)
Потом выделяешь диапазон В1:В9 и ставишь формат чисел процентный. Потом регулируешь, чтобы отображались только целые значения.