1. Информатика
  2. Дано 2 неравных числа. вывести

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

Gous55 Gous55    3   29.09.2019 00:30    0

Ответы
jdhhdd jdhhdd  09.10.2020 01:38

var a, b:real;

begin

writeln('Введите первое число');

readln(a);

writeln('Введите второе число');

readln(b);

if a<b then

writeln(1) else

writeln(2)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
SamForDevil SamForDevil  17.03.2020 11:22
Записать в тригонометрических функциях Паскаля. 3-6...
Stefalove Stefalove  17.03.2020 11:22
{ int i,r[7]={1,9,3,-1,2,-6,3}; int m=0; for(I=0;i =4;i=I+2){ m=m+pow(r[I],2);} cout m= return 0;} m=14 m=23 23 14 определите результат программы?...
Никто505 Никто505  17.03.2020 11:25
Компьютерное представление беззнакового целого числа 0000000000111000 . Данное компьютерное представление двухразрядное восьмиразрядное пятнадцатиразрядное шестнадцатиразрядное...
13573967 13573967  11.11.2021 06:26
Завдання «Кількість елементів послідовності, кратних 5» Умова Визначте кількість елементів послідовності , що завершується числом 0, кратних 5....
Даниад Даниад  11.11.2021 06:29
Упростите выражение используя законы алгебры логики (информатика) : ¬(¬A & C) ∨ (B & ¬C) , распишите пошагово, буду очень благодарен...
Tamilla19 Tamilla19  06.09.2019 14:40
Довжина двійкового коду текстового повідомлення, підготовленого за комп ютера, становить 3,5 кб. скільки символів містить цей текст? чи достатньо даних має , щоб можна було дати...
anisinivan09p08i87 anisinivan09p08i87  14.12.2020 13:26
Выберите реально существующие виды компьютерной графики. Отметьте все верные ответыВерных ответов: 3растровая графикафрактальная графикафактическая графикавекторная графикаГистамерная...
elem0207 elem0207  06.05.2019 19:45
Сколлоквиумом 1.свинцовая и свинцовистая кислоты , их соли , переход друг в друга . окислительно восстановительные свойства 2.одинаково ли отношение к воде и кислотам образцов оксида...
MrsVaderr MrsVaderr  06.05.2019 19:45
До частки чисел 47952 і74 додати добуток чисел 198 і 306...
DeteRno DeteRno  06.05.2019 19:45
Довести, що 15+28у не є квадратом цілого числа....

Популярные вопросы