заранее огромное,всех обняла

Question

Информатика: заранее огромное,всех обняла

subbotina17 · 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...

MOGZ ответил