Мы с вами знаем, что санкт-петербург менял свое название несколько раз. составить программу(pascal abc), которая на введенную дату выдает название города. если: с 1703 – 1914 г. – санкт петербург, с 1914 – 1924 г. петроград, с 1924 – 1991 г. ленинград, с 1991г. – санкт петербург. заранее )

135

479

Посмотреть ответы 2

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

labzaekaterina

Информатика

4,6(38 оценок)

Var a: integer; begin write('введите год: '); readln(a); if (a> =1703) and (a< 1914) then writeln('санкт петербург'); if (a> =1914) and (a< 1924) then writeln('петроград'); if (a> =1924) and (a< 1991) then writeln('ленинград'); if (a> =1991) then writeln(' санкт петербург'); end.

Dashka2K17

Информатика

4,6(96 оценок)

I,k: integer; begin randomize; writeln('массив: '); for i: =1 to 13 do begin a[i]: =random(41)+10; write(a[i],' '); end; writeln; writeln('массив после удаления 10-го элемента: '); for i: =10 to 12 do a[i]: =a[i+1]; for i: =1 to 12 do write(a[i],' '); writeln; writeln('массив после удаления минимального элемента: '); k: =1; for i: =1 to 12 do if a[i]< a[k] then k: =i; for i: =k to 11 do a[i]: =a[i+1]; for i: =1 to 11 do write(a[i],' '); writeln; end. var a: array [1..7] of char; i,k: integer; begin writeln('введите массив: '); for i: =1 to 7 do readln(a[i]); writeln('массив'); for i: =1 to 7 do write(a[i],' '); writeln; writeln('массив после удаления максимального элемента: '); k: =1; for i: =1 to 7 do if a[i]> a[k] then k: =i; for i: =k to 6 do a[i]: =a[i+1]; for i: =1 to 11 do write(a[i],' '); writeln; end.

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

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

Задай свой вопрос

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

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

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

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

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

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

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