Нужно заменить одну букву на другую так чтобы было сущ, в именительном пад. например суп-сук-сок-рок-рак 1.бег -шаг 2.море -суша 3.миг -век 4.бант -коса 5.шар -куб 6.муха -слон
257
330
Ответы на вопрос:
бег - баг - шаг
море - горе - гора - пора - пара - кара - каша - даша - душа - суша
миг - маг - мак - чак - чек - век
бант - кант - карт - корт - кора - коса
шар - пар - паб - раб - руб - куб
муха - мура - тура - тара - пара - парк - паук - паут - плут - плот - слот - слон
Const n=5; var a: array[1..n] of string; c: char; i: integer; begin for i: =1 to n do begin writeln('введите фамилию №',i); readln(a[i]); end; writeln('введите букву'); readln(c); writeln('на букву ',c,' начинаются фамилии: '); for i: =1 to n do if a[i][1]=c then writeln(a[i]); end.тествведите фамилию №1виноградов введите фамилию №2анисимов введите фамилию №3кондратьев введите фамилию №4соколов введите фамилию №5архипов введите буквуана букву а начинаются фамилии: анисимов архипов
Популярно: Информатика
-
Anastasia7wr17.10.2020 14:52
-
Trusters200705.06.2022 10:07
-
mixfix201718.04.2022 13:12
-
Павви13.11.2020 09:51
-
Alinka0411103.12.2020 22:51
-
SamSnOw435623.11.2021 06:15
-
fooorl16.04.2021 15:13
-
MASCAM26.10.2020 03:00
-
kika00706.03.2023 13:52
-
Всенорм111108.05.2022 20:29