Question

Задание 1. Однажды, посетив магазин канцелярских товаров, Вася купил Х каран-дашей, У ручек и Z фломастеров. Известно, что цена ручки на 2 рубля больше цены карандаша и на 7 рублей меньше цены фломастера. Также известно, что стоимость карандаша составляет 3 рубля. Требуется определить общую стоимость покупки.
Задание 2. Программа спрашивает у пользователя длину и ширину комнаты, расход краски и ее стоимость за один килограмм. Затем вычисляет объем всей краски и выводит стоимость всей краски в комнате. Стоимость выводится с точностью до двух знаков после запятой.
ПАСКАЛЬ!!! ( в профиле есть тоже самое задание но за 50 баллов)

Answer 1

1
program PurchaseCost;
var
X, Y, Z: integer;
pencilPrice, penPrice, markerPrice, totalCost: real;
begin
pencilPrice := 3; // Стоимость карандаша
penPrice := pencilPrice + 2; // Стоимость ручки на 2 рубля больше цены карандаша
markerPrice := penPrice + 7; // Стоимость фломастера на 7 рублей больше цены ручки

write('Введите количество карандашей (X): ');
readln(X);
write('Введите количество ручек (Y): ');
readln(Y);
write('Введите количество фломастеров (Z): ');
readln(Z);

totalCost := (X * pencilPrice) + (Y * penPrice) + (Z * markerPrice); // Общая стоимость покупки

writeln('Общая стоимость покупки: ', totalCost:0:2, ' рублей');
end.
2

program PaintCost;
var
length, width, paintUsage, paintPrice, totalPaintVolume, totalPaintCost: real;
begin
write('Введите длину комнаты (в метрах): ');
readln(length);
write('Введите ширину комнаты (в метрах): ');
readln(width);
write('Введите расход краски (в кг на квадратный метр): ');
readln(paintUsage);
write('Введите стоимость краски за килограмм: ');
readln(paintPrice);

totalPaintVolume := length * width * paintUsage; // Объем всей краски
totalPaintCost := totalPaintVolume * paintPrice; // Стоимость всей краски

writeln('Объем краски: ', totalPaintVolume:0:2, ' кг');
writeln('Стоимость краски в комнате: ', totalPaintCost:0:2, ' рублей');
end.