Строки

[TigRon]

Здравствуйте...вновь появилась нужда в помощи по задаче...
Суть задачи: Определить, совпадают ли последние буквы трех слов.

сам смог только это написать...дальше не знаю как определить по последним буквам...не могу продолжить...

program lab_4_1;
var
i,d,l,j,f,t:integer;
a,b,c:string;
begin
writeln('Vvedite 1-e slovo: ');
readln(a);
writeln('Vvedite 2-e slovo: ');
readln(b);
writeln('Vvedite 3-e slovo: ');
readln(c);
d:=length(a);
l:=length(b);
j:=length(c);
for i:=1 to d do
for f:=1 to l do
for t:=1 to j do

[Niro]

Ну первое, что пришло в голову это скопировать из каждого слова по три буквы и сравнить их, что то-то вроде

begin
   aa:=copy(a,length(a)-3,3);
   bb:=copy(b,length(b)-3,3);
   cc:=copy(b,length(c)-3,3);
   if (aa=bb) and (bb=cc) then writeln('Совпадают');
end.

не проверял

[Mad_Cat]

a3:=copy(a,length(a)-2,3);
b3:=copy(b,length(b)-2,3);
c3:=copy(c,length(c)-2,3);

и сравнивай a3,b3,c3
2Niro

copy(a,length(a)-3,3);

из слова мама возьмет не ама , а мам

[GetMax]

Как то так

If (A[d]=B[l]) and (B[l] = C[j]) then Writeln('Совпадают ')
                                         else Writeln('Не совпадают ');

[Прик]

program lab_4_1;
var
  a,b,c:string;
begin
  writeln('Vvedite 1-e slovo: ');
  readln(a);
  writeln('Vvedite 2-e slovo: ');
  readln(b);
  writeln('Vvedite 3-e slovo: ');
  readln(c);

  if (a[length(a)] <> b[length(b)]) or
    (a[length(a)] <> c[length(c)]) or
    (c[length(c)] <> b[length(b)]) 
  then
    ReadLn('Ne sovpadaut')
end;

Или лучше так (по условию задачи):

  if (a[length(a)] = b[length(b)]) and (c[length(c)] <> b[length(b)]) 
  then
    ReadLn('Sovpadaut')
  else
    ReadLn('Ne sovpadaut')