var a,i,k:integer; begin k:=0; writeln('Введите 15 целых чисел:'); for i:=1 to 15 do begin readln(a); if (a<0)and(a mod 3 = 0) then k:=k 1; end; writeln('k = ',k); end.
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
