Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите задачу с модом и дивом решить

Автор: Гость 14.10.2007 16:10

По запросу вводится натуральное число, программа находит все цифры 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);