Напишите программу, которая шифрует тексты следующим образом: исходная строка разбивается на части по 3 символа и эти три символа перемещаются по кругу вправо на одну позицию. если последняя группа символов состоит из 1 или 2 символов, то они остаются неизменными turbo pascal
273
494
Ответы на вопрос:
Var s: string; c: char; i: integer; begin writeln('введите строку: '); readln(s); for i: =0 to length(s) div 3-1 do begin c: =s[3*i+3]; s[3*i+3]: =s[3*i+2]; s[3*i+2]: =s[3*i+1]; s[3*i+1]: =c; end; writeln(s); end. пример: primer, begin, end.iprrmeb, ieg n,den.
var
count, x : integer;
begin
count : = 0;
repeat
read (x);
if (x mod 4=0) and (x mod 10=4) then inc (count);
until x = 0;
writeln (count);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Pipisk22.01.2021 10:11
-
Vinner050807.02.2022 17:47
-
elizapanfilova124.03.2021 15:58
-
Маалинка111.04.2020 12:10
-
Ermolenkoo27.08.2022 00:20
-
kolyanikolay20001.08.2022 04:58
-
tarasova75103.06.2020 18:46
-
Tina1997713.09.2020 02:42
-
Danil11111222.11.2022 03:18
-
alinashakeeva07.04.2021 04:17
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.