Даны два целых числа. Программа должна вывести число 1, если первое число больше второго, число 2, если второе больше первого или число 0, если они равны.
Входные данные
Вводятся два целых числа.
Выходные данные
Выведите ответ на задачу.
Примечание
Эту задачу желательно решить с использованием каскадных инструкций if... elif... else.
Примеры
входные данные
1
2
выходные данные
2
Ответы на вопрос
Ответил MrCalling
0
\программа решения алгоритма на языке паскаль ABC.Net v3.3 сборка 1627
var a: array [1..2] of integer;
i, rez: integer;
begin
for i := 1 to 2 do
readln(a[i]);
rez := 0;
i:=1;
for i:=1 to 1 do
if (a[i] > a[i+1]) then rez := 1 else if (a[i] < a[i+1]) then rez := 2 else rez := 0; writeln(rez);
end.
var a: array [1..2] of integer;
i, rez: integer;
begin
for i := 1 to 2 do
readln(a[i]);
rez := 0;
i:=1;
for i:=1 to 1 do
if (a[i] > a[i+1]) then rez := 1 else if (a[i] < a[i+1]) then rez := 2 else rez := 0; writeln(rez);
end.
Новые вопросы
Русский язык,
1 год назад
Русский язык,
1 год назад
Математика,
7 лет назад
Алгебра,
7 лет назад
Математика,
8 лет назад