Var p1,k1,p2,k2,s:integer; begin writeln ('Введите цену и количество первого товара:'); readln(p1,k1); writeln ('Введите цену и количество второго товара:'); readln(p2,k2); s:=p1*k1+p2*k2; writeln ('Общая стоимость = ',s); readln; end.
Пример: Введите цену и количество первого товара: 25 3 Введите цену и количество второго товара: 120 2 Общая стоимость = 315
Answers & Comments
Verified answer
Var p1,k1,p2,k2,s:integer;begin
writeln ('Введите цену и количество первого товара:');
readln(p1,k1);
writeln ('Введите цену и количество второго товара:');
readln(p2,k2);
s:=p1*k1+p2*k2;
writeln ('Общая стоимость = ',s);
readln;
end.
Пример:
Введите цену и количество первого товара:
25 3
Введите цену и количество второго товара:
120 2
Общая стоимость = 315