Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin if readinteger mod 10=3 then writeln('да') else writeln('нет') end.
//pascal abc.net 3.1 сборка 1256 type ukreco=^reco; reco=record int: integer; next: ukreco; end; const n=4; var head,li,kar,karsub,sub: ukreco; i,k: integer; begin randomize; readln(k); k: =k-1; new(head); li: =head; li^.int: =random(10); for i: =2 to n do begin new(li^.next); li: =li^.next; li^.int: =random(10); end; li^.next: =nil; writeln('original list: '); kar: =head; while kar< > nil do begin writeln(kar^.int); kar: =kar^.next; end; kar: =head; i: =0; if k=0 then head: =head^.next else while kar< > nil do begin inc(i); if i=k then begin karsub: =kar^.next; karsub: =karsub^.next; kar^.next: =karsub; break; end; kar: =kar^.next; end; writeln('modified list: '); kar: =head; while kar< > nil do begin writeln(kar^.int); kar: =kar^.next; end; end. пример ввода: 2 пример вывода: original list: 4 1 0 9 modified list: 4 0 9
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Фыффыф24.08.2022 11:15
-
Smort22.04.2022 18:11
-
kk6420.03.2022 23:31
-
oksyanna08.11.2022 18:57
-
166niko04.02.2021 13:30
-
lozhe4ka25.04.2022 16:26
-
gc12110.02.2021 11:19
-
olesyaprk25.05.2020 06:43
-
Rashmed19.02.2023 20:30
-
sanny202.03.2023 22:50
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.