Придумать законы и наказания за нарушения законов информационной безопасности
289
408
Ответы на вопрос:
Program z1; var stroka: string; var i: integer; begin writeln('введите строку'); readln(stroka); for i: =1 to length(stroka) do begin if(stroka[i]='1') then stroka[i]: ='0' else if(stroka[i]='0') then stroka[i]: ='1'; end; writeln(stroka); end.
Популярно: Информатика
-
mixakov0512.03.2021 07:01
-
Pots15020418.12.2022 14:53
-
юлия2008226.01.2023 03:30
-
Danilka969625.01.2023 14:46
-
Vika792872827216.05.2021 11:38
-
vera050313.09.2020 17:44
-
Алина0607200318.03.2022 10:51
-
daregloverp08l0m08.04.2022 15:47
-
glazyrinasasha14.08.2022 03:33
-
Radon8602.05.2023 15:55