Var A:integer; k,n:integer; Begin Write(Введите 15 чисел: ); k:=0; For n:= 1 to 15 do Begin Read(A); if Abs(A) mod 10 = 4 then k:=k+1 End; WriteLn(Количество чисел, оканчивающихся на 4: ,k); End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
