Помогите сделать программу новичку плиз

[xSDx]

Даны номерные знаки 4 автомашин. Определить, имеются ли среди них
одинаковые, вывести их или сообщение, что таких - нет.

[indexx]

Новичок, а сколько книг по программированию ты прочитал, прежде чем полез на форум?

[xSDx]

Сообщение от indexx

Новичок, а сколько книг по программированию ты прочитал, прежде чем полез на форум?

честно,читал ,но так и не понял(((

[indexx]

Я вообще-то спрашивал, не про честность, а про количество. У тебя что, проблемы с пониманием вопроса?

[Stilet]

const 
 q='А444ВН';w='B098GF';e='R987JK';r='N874KK';
begin
 if (q=w)or(w=e)or(e=r)or(r=q)or(r=w)or(e=q) then write('Есть') else write('Нет');
 readln;
end;

[xSDx]

Сообщение от indexx

Я вообще-то спрашивал, не про честность, а про количество. У тебя что, проблемы с пониманием вопроса?

мало,только начал изучать

[indexx]

Не тот метод изучения избрал. Читать надо, а не на форумах постить. Лень книги читать, читай гугл. Заодно и им пользоваться научишься.

[xSDx]

Сообщение от indexx

Не тот метод изучения избрал. Читать надо, а не на форумах постить. Лень книги читать, читай гугл. Заодно и им пользоваться научишься.

дело не в том что лень читать,понять ни как не могу тему,читал много всего.
и не надо писать иди еще почитай

[Stilet]

и не надо писать иди еще почитай

Думаешь тебе это повредит? )

[g25092011]

Сообщение от xSDx

Даны номерные знаки 4 автомашин. Определить, имеются ли среди них
одинаковые, вывести их или сообщение, что таких - нет.

rogram nomer;
var
  n:array[1..100] of string;
  f,d,k,r,i:integer;
begin 
 f:=0;
{ввод количества номеров}
writeln('Введите количество номеров');readln(d);
  for i:=1 to d do
    begin
      writeln('Введите ',i,' номер');readln(n[i]);
    end;
  {цикл сравнения номеров}
 
    for r:=1 to d do
      begin
        for k:=1 to d do
          begin
          if n[r]=n[r+k] then 
               begin
                 writeln('Одинаковые====   ',n[r],' и ',n[r+k]);
                 f:=f+1;       
              end;
           end;
         end;
      if f=0 then writeln('Одинаковых нет');
 end.