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

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

Задать свой вопрос
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.
Данил Штинов
Процедуры нет
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт