Спаскаля решить : 1. ввести с клавиатуры символьную строку и заменить в ней все буквы "а" на "б" и все буквы "б" на "а".( заглавные на заглавные и строчные на строчные буквы) пример: ааббаа, а после замены стало: ббаабб. 2.ввести с клавиатуры символьную строку и определить сколько в ней слов. пример: вася пошел найдено 3 слова. 3.ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. вывести фамилию и инициалы. пример: пирожков петр васильевич, а стало : п.в . пирожков.
103
494
Ответы на вопрос:
1. var s,s1: string; i: integer; begin readln(s); s1: =s; for i: =1 to length(s1) do begin if s1[i]='а' then s1[i]: ='б' else if s1[i]='а' then s1[i]: ='б' else if s1[i]='б' then s1[i]: ='а' else if s1[i]='б' then s1[i]: ='а'; end; writeln(s1); end. 2. var s,s1: string; i,k: integer; begin readln(s); s1: =s; i: =1; k: =1; while pos(' ',s1)> 0 do begin delete(s1,1,pos(' ',s1)); k: =k+1; end; writeln(k); end. 3. var s,famil,s1,imya,otch: string; i: integer; begin readln(s); famil: =copy(s,1,pos(' ',s)-1); delete(s,1,pos(' ',s)); imya: =copy(s,1,1); delete(s,1,pos(' ',s)); otch: =copy(s,1,1); s1: =concat(imya,'.',' ',otch,'.',' ',famil); writeln(s1); end.
I= n*k n=2^i i1= 8 i2= 16 n1= 3 n2 = 4 i1 = 3* 16* 62*62 = 184512 бит = 22,5 кбайт (windows) i2 = 4* 16* 62* 62 = 30 кбайт (unicode)
Популярно: Информатика
-
Шишиuvuvgyuhuh14.04.2023 09:29
-
Anansiy07.05.2023 18:38
-
vadimgricuk7416.01.2020 04:20
-
Voproshayka24.05.2023 23:21
-
BlackGus00703.08.2020 21:04
-
AronP15.02.2022 05:58
-
ilya48217.08.2021 05:09
-
Elmir0304200326.04.2022 18:21
-
ленаискакова13.09.2020 01:48
-
aseeva288302.04.2021 14:27