1) дана последовательность символов, оканчивающаяся точкой. выяснить, имеется ли в ней хотя бы одна : ( 2) дана последовательность символов, оканчивающаяся точкой. заменить в ней группу букв «кот» на группу букв «мышь». 3)вывести символы латинского алфавита с увеличением на 1 символ: a a b a b c a b c z
165
356
Ответы на вопрос:
1) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 program program1; var s,subs: string; c: char; isonenumber: boolean; p: byte; n,err: integer; begin writeln('‚введите фразу'); readln(s); c: =s[1]; isonenumber: =false; p: =pos(' ',s); while p< > 0 do begin if p=1 then begin s: =copy(s,2,length(s)); p: =pos(' ',s); continue; end; subs: =copy(s,1,p-1); s: =copy(s,p+1,length(s)); p: =pos(' ',s); val(subs,n,err); if err< > 0 then continue; if (n=0) or (n> 9) then continue; isonenumber: =true; break; end; if isonenumber then writeln('‚ есть числа, сосотоящие из одной цифры') else writeln('‚нет чисел, состоящих из одной цифры'); end.
Вязыке unicode 1 символ занимает 2 бита памяти в формулу представляешь значения и получаешь : 2^6(в 6 степени 2 находится)= 64
Популярно: Информатика
-
kirillsokolov2212.03.2023 14:15
-
BlaBla55212.06.2020 14:42
-
mawa1815.10.2021 23:15
-
panaitov022127.05.2021 21:41
-
Sofi20001177725.04.2020 21:30
-
кира65019.11.2020 04:56
-
Demonis66613.02.2022 12:18
-
danyymamaev03.07.2021 01:28
-
marinamelnik19p0742118.09.2022 17:31
-
Пелагея908706.11.2022 00:10