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 - искомая величина
Процедура в Паскале
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.