Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с конца строки - id183276020220107 от petukhova05 07.01.2022 03:38

Question

Информатика: Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с конца строки до тех пор, пока в строке не останется 1 символ. , , . жду вашей .)

petukhova05 · Accepted Answer

{ ответ дан на языке 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...

Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с конца строки до тех пор, пока в строке не останется 1 символ. , , . жду вашей .)

MOGZ ответил