program raf105;
var a,sum: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
if (a mod 8 = 0) and (a mod 10 = 6)
then sum+= a;
until a = 0;
writeln('Сумма: ',sum);
end.
<h3><u>PascalABC 3.4.2</u></h3>
Скинь фотку ребуса''''''''''
1) Компьютер [КОМ-ар- + П-ен-Ь + "Ю, Т, Е" + Р]
2) Клавиатура [("КЛА" В "И") + -с-АТУР-н- + А]
3) Монитор [МОН-ета- + -к-ИТ + -г-ОР-ы-]
4) Системный блок [СИСТ(лист,1=с) + -т-ЕМ(ом,о=е)-ы- + (Н + Ы + Й) + -я-БЛОК-о-]
Описание алгоритма:
Пусть даны числа a, b, c, d. Сравниваем a и b, c и d. Затем сравниваем максимальные числа в своих парах (наибольшее из них - максимальное среди всех чисел) и минимальные числа в своих парах (наименьшее из них - минимальное среди всех чисел). Сравниваем оставшиеся два числа и получаем информацию о порядке всех чисел, которую выводим на экран.
Реализация (python 3)
a, b, c, d = map(int, input().split())
if a > b:
a, b = b, a
if c > d:
c, d = d, c
if a > c:
a, c = c, a
if b > d:
b, d = d, b
if b > c:
b, c = c, b
print(a, b, c, d)
Пример ввода:
1 4 2 3
Пример вывода:
1 2 3 4