Даны
10-11 класс
|
четыре целых числа, одно из которых отлично от трех других, равных между собой.
Вывести порядковый номер этого числа
var a, b, c, d: integer;
begin
readln(a, b, c, d);
if (a <> b) then
if (a <> c) then writeln(1) else writeln(2)
else if (c <> a) then writeln(3)
else writeln(4);
end.
Вот так-то)
задача на Delphi(Pascal)
Другие вопросы из категории
получить от 5 до 15 баллов (Сгенерить случайные числа
Текст такой, но где-то есть ошибка.
Вычислить значение арифметического выражения
1)32 байт; 2) 280 байт; 3) 65 бит; 4) 70 бит
Читайте также
передавать эти данные по другой линии связи со скоростью 4 Мбит/с. Сколько секунд пройдет от начала приема данных по высокоскоростному каналу до полной передачи их по низкоскоростному каналу?
выходных данных: Необходимо вывести значение выражения
Входные данные: ввести одно целое положительное число a ((1<=a<=1000).
Выходные данные: вывести слово «true» если приведенное высказывание для предложенных исходных данных является истинным или «false» в противном случае.
пользователем, выделены полужирным шрифтом).
Вычисление объема параллелепипеда.
Введите исходные данные:
Длинна (см): 9
Ширина (см): 7.5
Высота (см): 5