• Составьте программу(Pascal),которая напечатает букву в центре экрана.

    question img

Ответы 6

  • ...
  • астраумно
    • Автор:

      morgan
    • 5 лет назад
    • 0
  • uses GraphABC;beginSetWindowSize(200,200);Window.CenterOnScreen();TextOut(80,75,'* * *');TextOut(80,85,'* * *');TextOut(80,95,'* * *');TextOut(80,105,'******');TextOut(80,115,' *');end.
  • uses crt;begingotoXY(40,13);writeln('* * *');gotoXY(40,14);writeln('* * *');gotoXY(40,15);writeln('* * *');gotoXY(40,16);writeln('******');gotoXY(40,17);writeln(' *');readln;end.
  • gotoXY(40,17);writeln(' *'); пробелы доставь, а то пропали.
  • //Free Pascal//При стандартных размерах окнаuses crt;beginclrscr;gotoXY(40,13);writeln('* * *');gotoXY(40,14);writeln('* * *');gotoXY(40,15);writeln('* * *');gotoXY(40,16);writeln('******');gotoXY(40,17);writeln('     *');readln;end. //PascalABC.NETuses GraphABC;beginSetWindowSize(200,200);Window.CenterOnScreen();TextOut(80,75,'* * *');TextOut(80,85,'* * *');TextOut(80,95,'* * *');TextOut(80,105,'******');TextOut(80,115,'     *');end.//Pascal обычный выводbeginwriteln('* * *');writeln('* * *');writeln('* * *');writeln('******');writeln('     *');end.
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years