Var A:longint; k:byte; Begin k:=0; Write(Введите число: );ReadLn(A); A:=Abs(A); While A > 0 do Begin if A mod 10 = 4 then k:=1; A:=A div 10 End; if k=0 then WriteLn(В данном числе нет цифры 4) else WriteLn(В данном числе есть цифра 4); End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
