Var s, s1, sn: string; i, n, p1, p2: integer; begin readln(s); p1 : = pos(' ', s) - 1; n : = length(s); i : = n; while s[i] < > ' ' do i : = i - 1; p2 : = i + 1; s1 : = copy(s, 1, p1); sn : = copy(s, p2, n + 1 - p2); s : = sn + copy(s, p1 + 1, p2 - p1 - 1) + s1; writeln(s) end.
Спасибо
Ответ дал: Гость
программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end. №5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.
Ответ дал: Гость
30 * 70 = 2100 символов на 1 странице
5 * 2100 = 10500 символов на 5 страницах
при кодировке ascii - 1 символ = 1 байт, значит 20500 байт оперативной памяти займет этот текст.
Популярные вопросы