В заданном тексте перевернуть каждое слово

Программу сделать с помощью процедур

Текст набить вручную (не больше 10 слов).

pascal

Question

Информатика

Стефанида

16 марта, 19:08

В заданном тексте перевернуть каждое слово

Программу сделать с помощью процедур

Текст набить вручную (не больше 10 слов).

pascal

+5

Ответы (1)

Знаете ответ на вопрос?

Леонтинка · Answer 1

program z40; uses crt; var a, b, c : string; i : longint; begin clrscr; write ('Введите слово: ') ; readln (a) ; b:=''; for i:=1 to length (a) do b:=a[i]+b; { переворачиваем слово } if a=b then write ('перевертыш') else write ('не перевертыш') ; readln; end.

В заданном тексте перевернуть каждое словоПрограмму сделать с помощью процедурТекст набить вручную (не больше 10 слов).pascal

В заданном тексте перевернуть каждое слово

Программу сделать с помощью процедур

Текст набить вручную (не больше 10 слов).

pascal