0 рейтинг
17 видели

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

от (61 баллов) в разделе Информатика | 17 видели

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 баллов)
10,984,878 заданий
13,471,016 решений
8,518,553 комментариев
4,909,216 пользователей