uses crt; var i,s:integer; begin for i:=1000 to 9999 do begin s:=strtoint(inttostr(i)[1]) strtoint(inttostr(i)[2]) strtoint(inttostr(i)[3]) strtoint(inttostr(i)[4]); if (s>15) and (s mod 3=0) then write(i,' '); end; end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
