ПЛИЗ!ХЕЛП МИ!Известна масса каждого из 12 предметов,определить общую массу всего набора.ЭТО ИЗ УЧЕБНИКА ИНФОРМ ПО ПРОГРАММИРОВАНИЮ 9 КЛ.НАДО ЗАПИСАТЬ КАК ЭТО БУДЕТ В ПАСКАЛЕ
ПЛИЗ!ХЕЛП МИ!Известна масса каждого из 12 предметов,определить общую массу всего набора.ЭТО ИЗ УЧЕБНИКА ИНФОРМ ПО ПРОГРАММИРОВАНИЮ 9 КЛ.НАДО ЗАПИСАТЬ КАК ЭТО БУДЕТ В ПАСКАЛЕ
Ответ(ы) на вопрос:
var a,b,i:integer;
begin
b:=0;
for i:=1 to 12 do
begin
readln(a);
b:=b+a;
end;
write(b);
end.
Не нашли ответ?
Похожие вопросы