По запросу вводится натуральное число, программа находит все цифры 2 и 7 в этом числе, после этого на экране пишется 2 или 7 в зависимости от того какая из этих цифр находится левее другой цифры в этом числе
klem4
14.10.2007 18:10
readln(n);
left_digit := 0;
while (n > 0) do begin case n mod 10 of 2, 7: left_digit := n mod 10; end; n := n div 10; end;
if left_digit = 0 then writeln('no') else writeln(left_digit);
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.