Взаданном тексте перевернуть каждое слово программу - вопрос №3309004 от superegr 07.11.2020 19:35

Question

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

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