Известна масса каждого из 12 предметов. Определить общую массу всего набора предметов.

На Паскале

Question

Информатика

Эсфирь

30 октября, 06:18

Известна масса каждого из 12 предметов. Определить общую массу всего набора предметов.

На Паскале

+3

Ответы (1)

Знаете ответ на вопрос?

Дареша · Answer 1

Var A:array[1 ... 12] of integer;

i:integer;

s, b:real;

begin

for i:=1 to 12 do

begin

writeln ('Введите массу ', i,' предмета') ;

readln (b) ;

s:=s+b;

end;

writeln ('Масса всех предметов равна ', s:8:4,' кг') ;

end.

Известна масса каждого из 12 предметов. Определить общую массу всего набора предметов.На Паскале

Известна масса каждого из 12 предметов. Определить общую массу всего набора предметов.

На Паскале