Взаданном тексте перевернуть каждое слово программу - вопрос №3308327 от timursharipov2 08.10.2020 02:51

Question

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

timursharipov2 · Answer

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....