Напишите программу, которая читает массу 12 грузов, что загружаются в машину и выдает общую массу груза в машине после загрузки.

Question

Информатика

Фирумида

19 ноября, 21:12

Напишите программу, которая читает массу 12 грузов, что загружаются в машину и выдает общую массу груза в машине после загрузки.

+2

Ответы (1)

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

Женя · Answer 1

var s, i, a: integer;

begin

s:=0;

writeln ('Введите массу 12 грузов') ;

for i:=1 to 12 do

begin

read (a) ;

s:=s+a;

end;

writeln ('Масса 12 грузов равна ', s) ;

end.