• 65) (Д.Ф. Муфаззалов, Уфа) Какое число будет напечатано в результате выполнения программы:
    var i, k: integer;
    function f(x: integer): integer;
    var m: integer;
    begin
    if x < 10 then f := x
    else begin
    m := f(x div 10);
    if m < x mod 10 then
    f := x mod 10
    else f := m;
    end;
    end;
    begin
    k := 0;
    for i := 1000 to 9999 do
    if f(i mod 100) = 1 then
    if f(i div 100) = f(i mod 100) then
    k := k + 1;
    writeln(k);
    end.

    Объясните, пожалуйста.

Ответы 3

  • Pascal ABC программа
    • Автор:

      staruiov
    • 5 лет назад
    • 0
  • серьезно? а я то вот сижу и вручную решаю, какая я глупая
  • Нужно через программу,легче будет) Решила будет 6
    • Автор:

      hubbyzbwu
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years