Задать вопрос
21 августа, 21:02

Паскаль!

Задано слово длины 3n (n - натуральное число). Удалить в нем последнюю треть слова, а оставшиеся две трети перевернуть.

+3
Ответы (1)
  1. 21 августа, 23:16
    0
    var s, s1:string; n, i:integer;

    begin

    writeln ('Введите слово длиной 3n:') ;

    readln (s) ;

    n:=length (s) div 3;

    delete (s, 2*n+1, n) ;

    s1:='';

    for i:=1 to 2*n do s1:=s[i]+s1;

    writeln (s1) ;

    end.

    Пример:

    Введите слово длиной 3n:

    programma

    argorp
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Паскаль! Задано слово длины 3n (n - натуральное число). Удалить в нем последнюю треть слова, а оставшиеся две трети перевернуть. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы