Регистрация
леся546576
09.09.2022 03:06
Информатика
Есть ответ 👍

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

260
350
Посмотреть ответы 2

Ответы на вопрос:

vadim2810
vadim2810
4,5(33 оценок)

pascalabc.net

begin

  var (a, b, c) : = readinteger3;

  if a > c then

    if b > c then

      write('меньше')

    else

      write('между')

  else if b > c then

    write('между')

  else

    write('больше')

end.

dendenisenko2
dendenisenko2
4,4(5 оценок)
1. ручная прокрутка алгоритма f₀ = 1; f₁ = 1; f₂ = f₁×f₀+2 = 1×1+2=1+2 = 3; f₃ = f₂×f₁+2 = 3×1+2 = 3+2 = 5; f₄ = f₃×f₂+2 = 5×3+2 = 15+2 = 17; f₅ = f₄×f₃+2 = 17×5+2 = 85+2 = 87 ответ: 87 2. программное решение с использованием итерации // pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin   var f: array[0..5] of integer;   f[0]: =1; f[1]: =1;   for var i: =2 to 5 do f[i]: =f[i-1]*f[i-2]+2;   writeln(f[5]) end. результат выполнения программы 87 3. программное решение с использованием рекурсии // pascalabc.net 3.1, сборка 1204 от 24.03.2016 function f(n: integer): integer; begin   if n< 2 then result: =1   else result: =f(n-1)*f(n-2)+2 end; begin   writeln(f(5)) end. результат выполнения программы 87

Популярно: Информатика