Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Добрый день. Помогите решить задачу в паскаль

Нина Филипенко Ученик (92), открыт 2 недели назад
Магазин продает В машин по цене А руб. за каждую. Найдите общую выручку от продажи машин (все необходимые значения введите с клавиатуры).
2 ответа
Рустам Абдрашитов Мыслитель (9508) 2 недели назад
на код сегненерирован ИИ!
 program SalesRevenue; 

var
pricePerCar, numberOfCars, totalRevenue: Real;

begin
Write('Введите цену за одну машину (A): ');
ReadLn(pricePerCar);

Write('Введите количество машин (B): ');
ReadLn(numberOfCars);

totalRevenue := pricePerCar * numberOfCars;

WriteLn('Общая выручка от продажи машин: ', FormatFloat('0.00', totalRevenue), ' руб.');

ReadLn;
end.
ᅠ ᅠ Гуру (3462) 2 недели назад
 program p_1; 
var
cars, price: real;
begin
readln(cars);
readln(price);
writeln('Общая выручка от продажи машин: ', cars * price:0:2);
end.
Только причём тут C++?
Похожие вопросы