В паскале!!!
Известно,
что Покупатель приобрел а кг яблок по цене в руб. и с кг груш по цене d руб.
Покупатель имеет S рублей. Напишите программу, которая определяет, хватит ли у
покупателя средств на данную покупку?
Известно,
что Покупатель приобрел а кг яблок по цене в руб. и с кг груш по цене d руб.
Покупатель имеет S рублей. Напишите программу, которая определяет, хватит ли у
покупателя средств на данную покупку?
Answers & Comments
uses crt;
var
s,a,b,c,d,su:real;
begin
clrscr;
writeln('Cymma kotopaya ectb y pokypatelya: ');
read(s);
writeln('Ckolko priobel yablock (kg): ');
read(a);
writeln('Cena yablock:');
read(b);
writeln('Ckolko priobrel grush(kg): ');
read(c);
writeln('Cena grush: ');
read(d);
su:=(a*b)+(c*d);
if s >= su then writeln('dannoy summu hvatit dlya etoy pokypki, vsego za pokupku ',su)
else
writeln('Etoy symmu ne hvatit dlya pokupki');
end.
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.