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

Question

Информатика

Юреня

6 апреля, 14:45

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

+3

Ответы (1)

Знаете ответ?

Александр · Answer 1

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.