Войти Регистрация Спроси ai-bota

Нужно выполнить задания: (см. изображение)

Нужно выполнить задания: (см. изображение)

Показать ответ

Ответ:

egor22832

12.08.2021 08:41

{ ответ дан на языке Pascal }
{ Вариант a }
PROGRAM Solution(INPUT, OUTPUT);

VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;

BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

WRITELN(Str2 + Str3 + Str1);

END.

{ Вариант b }
PROGRAM Solution(INPUT, OUTPUT);

VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;

BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

WRITELN(Str3 + Str1 + Str2);

END.

0,0(0 оценок)

Ответ:

Юльчик12134567890

12.08.2021 08:41

{ ответ дан на языке Pascal }
{ Вариант a }
PROGRAM Solution(INPUT, OUTPUT);

VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;

BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

WRITELN(Str2 + Str3 + Str1);

END.

{ Вариант b }
PROGRAM Solution(INPUT, OUTPUT);

VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;

BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

WRITELN(Str3 + Str1 + Str2);

END.

0,0(0 оценок)

Популярные вопросы: Информатика

ranilgalimzyanov

20.07.2021 22:56

2. в диапазоне от 1 до n (n – вводится с клавиатуры) вывести все числа, которые оканчиваются цифрой 3 или делятся нацело на 3. найти и вывести сумму всех таких чисел...

Lololo567

16.09.2022 18:36

Оператор ввода и вывода, нужно определение...

alikhankoshpanov

13.12.2022 00:10

Дан массив a, состоящий из n целых неотрицательных чисел. Ваша задача — выписать его нечётные элементы на те же места во второй массив b того же размера, а остальные...

900901

01.10.2020 13:28

Опишіть зміни у відображенні сторінки під час застосування режиму інспекції...

kanyakhin

13.08.2020 03:15

Дан массив a, состоящий из n целых неотрицательных чисел. Ваша задача — разбить его на два массива, причём в первом из них будут содержаться все элементы a, стоящие...

Ajosha

07.04.2020 20:47

Для чего нужна полоса прокрутки? ...

Tishukvasiliy

29.01.2021 03:18

Задание с кратк,дание с кратким ответом. Запишите доменное имя компьютера, за-истрированного в домене верхнего уровня ru, домене второго уровняschools и имеющего...

Halimali10

22.06.2021 23:36

Складить блок -схему фрагмента алгоритму , у якому в цикл з личильником вкладено неповне розгалуження. Пояснить виконання складеного фрагмента,...

mynomynou

12.01.2023 20:59

Ваш отпуск длится f дней. Сколько полных недель и дней составляет ваш отпуск?Входные данные:52Выходные данные:52 дней(я) - 7 недель 3 дней (я)НАПИСАТЬ ПРОГРАММУ В...

сева167

12.08.2021 00:02

Напишите программу вычисления площадь треугольника S если известны основание a и высота h используя алгоритмический программирования...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку