Есть ответ 👍

Переделать программу в процедуру program nolik; uses crt; var x,y: integer; begin repeat x: =40; y: =1; repeat gotoxy(x,y); write (0); y: =y+1; x: =x+3; delay(100); clrscr; until x> 70; repeat gotoxy(x,y); write(0); y: =y+1; x: =x-3; delay(100); clrscr; until y> 24; repeat gotoxy(x,y); write(0); y: =y-1; x: =x-3; delay(100); clrscr; until x< 4; repeat gotoxy(x,y); write(0); y: =y-1; x: =x+3; delay(100); clrscr; until y< 3; until keypressed; readln; end.

111
464
Посмотреть ответы 1

Ответы на вопрос:

Enot3106
4,5(64 оценок)

1

var a: string;

begin

  write('введите двузначное число: ');

  readln(a);

  writeln((a.first() = a. ? 'цифры одинаковы' : 'цифры различаются');

end.

2

var  

  month: integer;

  season: string;

begin

  write('введите номер месяца: ');

  readln(month);

  case month of

    1,2,12: season : = 'зима';

    3..5:   season : = 'весна';

    6..8:   season : = 'лето';

    9..11:   season : = 'осень';

    else     season : = 'вы ввели неверный номер месяца';

  end;

  writeln(season)

end.

3

var  

  age: integer;

  ending: string;

begin

  write('введите возраст: ');

  readln(age);

  if (age mod 100 > = 10) and (age mod 100 < = 20)  

    then ending : = 'лет'

  else

    case (age mod 10) of

      1: ending : = 'год';

      2..4: ending : = 'года';

      5..9, 0: ending : = 'лет'

    end;

  write(age, ' ', ending)

end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS