Условный оператор. 5 даны три целых числа. определить, имеется ли среди них хотя бы одна пара равных между собой чисел. формат входных данных входной файл содержит три целых числа через пробел. формат выходных данных выведите 'yes' если это так, и 'no' в противном случае. примеры: вход 544 935 911 выход no

Uses crt; var a, b, c : integer; begin read(a,b,c); writeln; if (a=b) or (a=c) or (b=c) then                    write('yes')                  else                      write('no');                     readkey; end.

2)program nah;

  var s: string;

begin

s: = 'рэки,горы и ';     (присвоение значения)

writeln (s);                               (вывод)

delete (s, 5,6);                     (удаление из строки s начиная с 5-го символа 6) символа)

writeln(s);                           (вывод результата)

end. 

  решение будет выглядеть так

  рэки, горы и

рэки и  

 

 

прости что не решила  

 

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.