1)Даны три целых числа. Вывести сообщение является ли среди чисел хотя бы одна пара совпадающей или не является.

2)Вычислить для любого х значение функции Y =3х/(x-6), при некотором значении х выдать сообщение ' функция не существует '

1

Ответы и объяснения

Лучший Ответ!
2013-05-28T21:13:21+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Program shm40_1;
uses crt;
var
  a,b,c:real;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  write('Введите A '); readln(a);
  write('Введите B '); readln(b);
  write('Введите C '); readln(c);
  if (a=b) or (b=c) or (a=c) then
      writeln('Среди введённых чисел есть совпадения')
    else
      writeln('Среди введённых чисел совпадений НЕТ');
end.

Program shm40_2;
uses crt;
var
  x:real;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  write('Введите X '); readln(x);
  if x=6 then
      writeln('При x=',x,' функция не существует!')
    else
      writeln('Y=',3*x/(x-6));
end.