Килограмм апельсинов стоит 5500ру.У Сони есть сумма в N руб. Сможет ли Соня купить 3 кг апельсинов? Ввод сумма 1500.ввывод соня не может купить 3 кг апельсинов. Ввод сумма 25000. Вывод соня может купить 3 кг апельсинов. Нужна программа для паскаль

Предыдущий
вопрос Следующий
вопрос

Приведу пример программы на языке Паскаль, которая будет считывать введенную сумму и выводить возможность покупки 3 кг апельсинов:

program BuyOranges
va
pricePerKg, sum, cost: integer
begi
pricePerKg := 5500
writeln('Введите сумму в рублях:')
readln(sum)
cost := pricePerKg * 3
if sum >= cost the
writeln('Соня может купить 3 кг апельсинов.'
els
writeln('Соня не может купить 3 кг апельсинов.')
end.

Пользователь должен ввести сумму в рублях, после чего программа расчитает стоимость 3 кг апельсинов и выведет сообщение о возможности или невозможности их покупки.