Регистрация
Karinarpro
06.01.2022 08:35
Информатика
Есть ответ 👍

Даны два числа. вывести порядковый номер меньшего из них

298
465
Посмотреть ответы 3

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

fedivvasil19
fedivvasil19
4,7(95 оценок)
// pascalabc.net 3.3.5, сборка 1636 от 10.03.2018 // внимание! если программа не работает, обновите версию! begin   var (a,b): =readreal2('введите два числа');   var d: =a-b;   writeln(d> 0 ? 2 : d=0 ? 0 : 1) end. примеры введите два числа 5.7 9 1 введите два числа 8.5 -6.4 2 введите два числа 2 2.0000 0 в последнем случае 0 означает, что числа равны и нет номера большего числа.
mslava150
mslava150
4,7(26 оценок)
Var   a,b: integer; begin   writeln('введите последовательно два числа');   readln(a);   readln(b);   if a< b then   writeln('меньшее число под номером 1')   else   writeln('меньшее число под номером 2'); readln; {задержка} end. {тест} введите последовательно 2 числа 10 15 меньшее число под номером 1.
reginasachtova
reginasachtova
4,8(10 оценок)
Var z: array[1..9]of integer; i: integer; begin randomize; for i: = 1 to 9 do   begin       z[i]: = 3 + random(7);       write(z[i], ' ');   end; for i: = 1 to 9 do   if i mod 2 = 1 then       z[i] : = i; writeln; for i: = 1 to 9 do       write(z[i], ' '); end. пример: 4 4 5 6 8 4 3 5 5 1 4 3 6 5 4 7 5 9

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