Здесь всё просто нужно: добавить два числа и посчитать нули : 101112+100102 = 201214 всего 1 нуль.
Спасибо (1)
Ответ дал: Гость
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.
Популярные вопросы