С! (pascal abc .net) пользователь вводить числа до нуля. надо: 1. подсчитать сумму все отрицательных четных чисел 2. подсчитать количество четных чисел кратных 3. 3. подсчитать сумму и количество трехзначных нечетных чисел

127

298

Посмотреть ответы 2

Ответы на вопрос:

julylana

Информатика

4,4(47 оценок)

Program gt; var a,s1,k1,s2,k2: integer; begin a: =1; while a< > 0 do begin read(a); if(a< 0)and(abs(a)mod 2=0)then s1: =s1+a; if(a mod 2=0)and(a mod 3=0)then k1: =k1+1; if(a> 99)and(a< 1000)and(a mod 2=1)then begin k2: =k2+1; s2: =s2+a; end; end; writeln('условие 1'); writeln(s1); writeln('условие 2'); writeln(k1); writeln('условие 3'); writeln(s2,' ',k2); end.