Регистрация
smashsmash83p08jrb
18.06.2022 11:45
Информатика
Есть ответ 👍

Задания по информатике Pascal.

я пропустил тему!

256
418
Посмотреть ответы 1

Ответы на вопрос:

янамурадян
янамурадян
4,5(15 оценок)
Var   s : integer;   t, t1,t2: string; b1: boolean; begin  b1 : = false;   writeln('введите строку ');   readln(t);   t2 : = '';   repeat      p1 : = pos(' ',t);       if p1> 0 then      begin            t2 : = copy(t,1,p1-1);           if  length(t2)> 0) then  t1 : = t2 + ' ' + t1;           delete(t,1,p1);       end      else if (length(t)> =1) then          //обработка кнца строки      begin        t2 : = t;         t1 : = t2 + ' ' + t1;         b1 : = true;       end      else b1 : = true;         // еще одна проверка, если пследний символ строки - пробел        until (b1 = true);     writeln('ответ ',t1) end.

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