Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
салам алейкум
Объяснение:
uses crt; var
i,s1,s2: integer; begin for i: =1 to 100 do begin if i mod 2=0 then s1: =s1+i else s2: =s2+i; end; writeln('сумма четных чисел: ',s1); write('сумма нечетных чисел: ',s2); end.
может быть крик?
решение должно иметь од 20 до 5000
Популярные вопросы