В заданном тексте перевернуть каждое слово Программу сделать с помощью процедур Текст набить вручную(не больше 10 слов).pascal
В заданном тексте перевернуть каждое слово
Программу сделать с помощью процедур
Текст набить вручную(не больше 10 слов).
pascal
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы