Задать вопрос
10 февраля, 19:46

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

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

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

pascal

+3
Ответы (1)
  1. 10 февраля, 22:52
    0
    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 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы