• 
  • 27 November 2012
  Английский язык
  • Автор: Настя312

  

  1)Ввести 2 числа,заменить число суммой чисел,а большее произведением. 2)Ввести 2 числа А и В заменить первое нулем если оно меньше второго. 3)Журнал стоит k руб.Какую сдачу получит покупатель если у него в руб. 4)Определить ,является ли введенное шестизначное число счастливым,т.е. сумма первых трех цифр числа равна сумме последних трех цифр. 5)Определить ,является число А делителем числа В.

• 
  • 27 November 2012
  • Ответ оставил: Kalimov1

  1)

  var

    a, b, c: real;

    IDE: boolean;

   

  begin

    IDE:= false;

    writeln('Введите 2 числа');

    readln(a, b);

    c:= a;

    if (IDE = false) and (a < b) then 

    begin

      a:= a + b;

      b:= c * b;

      IDE:= true;

      writeln('a = ', a, ', b = ', b);

    end;

    if (IDE = false) and (b < a) then 

    begin

      a:= a * b;

      b:= a + b;

      IDE:= true;

      writeln('a = ', a, ', b = ', b);

    end;

    if (IDE = false) and (a = b) then

    begin

      writeln('Числа равны');

      IDE:= true;

    end;

  end.

  2)

  var

    a, b: real;

   

  begin

    writeln('Введите 2 числа');

    readln(a, b);

    if a < b then a:= 0;

    writeln('a = ', a, ', b = ', b);

  end.

  3)

  var

    k, b: real;

   

  begin

    writeln('Введите цену журнала');

    readln(k);

    writeln('Введите, сколько у покупателя денег');

    readln(b);

    if b > k then writeln('Покупатель получит ', b - k, ' р сдачи');

    if b = k then writeln('Покупатель не получит сдачи');

    if b < k then writeln('Покупателю придется доплатить ', k - b, ' р');

  end.

  4)

  var

    a: 100000..999999;

    a1, a2, a3, a4, a5, a6: 1..9;

   

  begin

    writeln('Введите шестизначное число');

    readln(a);

    a1:= a div 100000;

    a2:= (a mod 100000) div 10000;

    a3:= (a mod 10000) div 1000;

    a4:= (a mod 1000) div 100;

    a5:= (a mod 100) div 10;

    a6:= a mod 10;

    if (a1 + a2 + a3) = (a4 + a5 + a6) then writeln('Число является счастливым')

    else writeln('Число не является счастливым');

  end.

  5)

  var

    a, b: integer;

   

  begin

    writeln('Введите числа A и B');

    readln(a, b);

    if b mod a = 0 then writeln('Число ', a, ' является делителем числа ', b)

    else writeln('Число ', a, ' не является делителем числа ', b);

  end.

  Если все правильно, отметь решение как лучшее)

  Если возникнут вопросы - задавай 

    

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

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

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

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

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