Какое число будет напечатано в результате выполнения программы var i, k: integer;
function f(x: integer): integer;
begin
if x > 0 then
f := x mod 10 + f(x div 10)
else
f := 0;
end;
begin
k := 0;
for i := 1000 to 9999 do
if f(i mod 100) = 4 then
if f(i div 100) = f(i mod 100) then k := k + 1;
writeln(k);
end.
Какое число будет напечатано в результате выполнения программы var i, k: integer;
function f(x: integer): integer;
begin
if x > 0 then
f := x mod 10 + f(x div 10)
else
f := 0;
end;
begin
k := 0;
for i := 1000 to 9999 do
if f(i mod 100) = 4 then
if f(i div 100) = f(i mod 100) then k := k + 1;
writeln(k);
end.
function f(x: integer): integer;
begin
if x > 0 then
f := x mod 10 + f(x div 10)
else
f := 0;
end;
begin
k := 0;
for i := 1000 to 9999 do
if f(i mod 100) = 4 then
if f(i div 100) = f(i mod 100) then k := k + 1;
writeln(k);
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Ответ: 20
Или Вам необходимо объяснить что происходит в теле этой программки на Pascal?