Question

Даны четыре слова одинаковой длины. напечатать сообщение о наличии или отсутствии одинаковых слов и это слово( в программе pascal)

Answer 1

Var
s1,s2,s3,s4:string;
k:integer;
begin
  writeln('Введите 1 слово:');
  readln(s1);
  writeln('Введите 2 слово:');
  readln(s2);
  writeln('Введите 3 слово:');
  readln(s3);
  writeln('Введите 4 слово:');
  readln(s4);
  writeln('Список одинаковых слов');
  if (s1=s2)or(s1=s3)or(s1=s4) then begin k:=1; writeln(s1); end;
  if (s2=s3)or(s2=s4) then begin k:=1; writeln(s2); end;
  if  s3=s4 then begin k:=1; writeln(s3); end;
  if k=0 then writeln('Одинаковых слов нет');
end.