9. Используя таблицу, расшифруйте ВЫСказывание: 1 2 3 4 5 6 7 8 9 10 11 12 1 к л м н оь ъ ы э ю я пробел - id1468129120201124 от weranika20ozd22z 24.11.2020 19:27

Question

Информатика: 9. Используя таблицу, расшифруйте ВЫСказывание: 1 2 3 4 5 6 7 8 9 10 11 12 1 к л м н оь ъ ы э ю я пробел 2 п р с т у ф х ц ц шЩ 3 а б в г д е ё ж з и й 3,1), (5,1), (4,1), (10,3), (4,2), (5,1), (2,2), (12,1) (2,2), (1,3), (2,3), (5,1), (4,2), (1,3), (6,3), (4,2), (123) 10. Используя кодовую таблицу задания №9, зашифруйте свое имя​

weranika20ozd22z · Accepted Answer

//Pascal ABC.NET 3.1 сборка 1256 Var  s,s1:string; begin readln(s); if (s[1]= в ) and (s[2]= ) then  begin   delete(s,1,1);   s:= на +s;  end; if (s[1]= В ) and (s[2]= ) then  begin   delete(s,1,1);   s:= На +s;  end; while pos( в ,s) 0 do  begin   if (s[1]= в ) and (s[2]= ) then  begin   delete(s,1,1);   s:= на +s;  end;if (s[1]= В ) and (s[2]= ) then  begin   delete(s,1,1);   s:= На +s;  end;   s1:=s1+copy(s,1,pos( в ,s)-1)+ на ;   delete(s,1,pos( в ,s)+2);  end;   if (s[1]= в ) and (s[2]= ) then...

MOGZ ответил