знаменито цена и количество каждого из 2-ух товаров вывести общую цена

Знаменито стоимость и количество каждого из двух продуктов вывести общую стоимость

написать программку

Задать свой вопрос
1 ответ
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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт