Задание:
В паскале! Известно, что Покупатель приобрел а кг яблок по цене в руб. И с кг груш по цене d руб. Покупатель имеет S рублей. Напишите программу, которая определяет, хватит ли у покупателя средств на данную покупку?
Решение:
Program cena; uses crt; vars,a,b,c,d,su: real; beginclrscr; 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) elsewriteln ('Etoy symmu ne hvatit dlya pokupki'); end.
Знаете другой ответ?