Var x,i,s: integer; Begin s:=0; for i:= 1 to 15 do begin; Write('Введите оценку ученика №',i,' '); readln(x); if (x=2) then s:=s 1; end; if (s=0) then writeln('Двоек нет!') else writeln('Двойки есть! Всего двоек: ',s); readln(x); end.
//На скриншоте образец работы программы.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
