• 
  • 13 April 2013
  Английский язык
  • Автор:

  

  помогите с задачами по информатике решить 2 задачи и записать как в паскале

  

• 
  • 13 April 2013
  • Ответ оставил: tamerlan1011

  Задача1. (на паскале давно не программировал, поэтому возможны огрехи, саого паскаля под рукой нет.)

   

  Program zadanie1;

  var

  a,b,c: real;

  begin

  wtiteln('Vvedite A');

  readln(a);

  writeln('Vvrdite B');

  readln(b);

  writeln('Vvedite C');

  readln(c);

  if ((a>b)and(b>c))or((a<b)and(b<c)) then

     begin

     a:=a*2;

     b:=b*2;

     c:=c*2;

     end;

  else

     begin

     a:=a*(-1);

     b:=b*(-1);

     c:=c*(-1);

     end;

  writeln('a=');

  writeln('b=');

  writeln('c=');

  end.

   

  Решил исходя из того, что в случае если условие не выполняется значение чисел меняется на обратное по знаку.

   

  Задача 2.

   

  program Zadanie2;

   

  var

   

  A,B,C:integer;

   

  begin

   

  writeln('Введите числa A,B и C: ');

   

  readln(A,B,C);

   

  if (C = B) then

   

  writeln('Номер числа, отличного от остальных: ',1)

   

  else

   

  if (A = C) then

   

  writeln('Номер числа, отличного от остальных: ',2)

   

  else

   

  writeln('Номер числа, отличного от остальных: ',3);

   

  end.

  
  

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (04.04.2026) наш сайт содержит 244795 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы