Врезультате опроса выяснилось,что из 22 девочек 14 любят тюльпаны, 10-розы, 4- и розы и тюльпаны. а остальным нравятся ландыши. сколько девочек предпочитают ландыши?
110
222
Ответы на вопрос:
Кажется так. необходи из алфавита вычесть общее количество знаков алфавита. program z1; var a,b,c: string; i,j,k,d,g: integer; begin writeln('шифрование? 1-да,0-нет'); readln(g); writeln('исходный текст '); readln(a); writeln('ключ'); readln(d); c: =''; b: ='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; for i: =1 to length(a) do for j: =1 to length(b) do begin if g=0 then k: =(j-d) mod 32 else k: =(j+d); if k > 33 then k: =k-33; if a[i]=b[j] then c: =c+b[k]; end; writeln(c); end.
Популярно: Информатика
-
mirko2015201614.04.2020 05:15
-
guluamovalera29.12.2022 16:13
-
Kuznecovanaste24.09.2022 17:43
-
poladasadov17.04.2021 14:25
-
EllaNeal29.12.2022 20:43
-
tima14priluki02.02.2021 08:19
-
berfasrd22.07.2022 02:09
-
sssooonnnyyyaaa123.05.2023 12:53
-
lilyagoz8922.08.2020 12:40
-
sandershvnz09.09.2021 03:19