Помогите с задачей! (pascal abc .net)Пользователь вводить числа до нуля. Надо:1. Подсчитать сумму все отрицательных четных чисел2. Подсчитать количество четных чисел кратных 3.3. Подсчитать сумму и количество трехзначных нечетных чисел
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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
