В заданном тексте перевернуть каждое слово Программу сделать с помощью процедур Текст...

Question

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

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.

Comments

Процедуры нет