Создать программу, которая вычисляет стоимость покупки (купили гречку, сахар, муку, соль. Количество и цена задается пользователем и вводится с клавиатуры. Значит переменных будет по две на каждый вид товара, то есть 8 сменных + одна переменная как результат. Тип величины можно взять real)
Answers & Comments
Ответ:
program buys;
var
a, b, c, d, e, f, g, h, L, u, o, p, i, s: real;
begin
writeln ('Введите кол-во упаковок\кг гречки');
read (a);
writeln ('Введите цену гречки');
read (b);
writeln ('Введите кол-во упаковок\кг сахара');
read (c);
writeln ('Введите цену сахара');
read (d);
writeln ('Введите кол-во упаковок\кг муки');
read (e);
writeln ('Введите цену муки');
read (f);
writeln ('Введите кол-во упаковок\кг соли');
read (g);
writeln ('Введите цену соли');
read (h);
u:=a*b;
o:=c*d;
p:=e*f;
i:=g*h;
s:=u+o+p+i;
writeln ('Стоимость покупки = ', s);
end.
Объяснение: