Составить и записать программу подсчета стоимости покупок не менее 10 видов товара.

0 голосов
84 просмотров

Составить и записать программу подсчета стоимости покупок не менее 10 видов товара.


спросил от (61 баллов) в категории Информатика
1 Ответ
0 голосов

Pascal

 

program tovar;

var i,k:integer; t,s:real;

begin

s:=0; 

writeln ('Vvedit kol-vo tovara');

readln (k);

for i:=1 to  k do

begin

writeln ('Vvedit stoimost',i,'-go tovaru');

readln (t);

s:=t+s;

end;

writeln ('stoimost pokupok-',s);

readln

end. 

ответил от Начинающий (136 баллов)
...