Re: Процедура в Паскале
Добавлено: 12 апр 2010, 11:13
for i:=1 to 5 do if A=1 then inc(sum);
for i:=1 to 7 do if B=1 then inc(sum);
for i:=1 to 9 do if C=1 then inc(sum);
В sum - искомая величина
for i:=1 to 7 do if B=1 then inc(sum);
for i:=1 to 9 do if C=1 then inc(sum);
В sum - искомая величина