Какое число будет напечатано в результате выполнения программы 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.

112
0

Ответ: 20

Или Вам необходимо объяснить что происходит в теле этой программки на Pascal?

Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат

Похожие вопросы

Интересные статьи из справочника

Домашняя работа в вузе и в школе: а есть ли разница?
3315 +366
0
Подборка крупных российских вузов с опубликованными порогами баллов.
16456 +214
1
Зачем во время ЕГЭ по иностранному школьники слушают музыку и как набрать 100 баллов.
1981 +196
0
Пришла пора получше изучить свои права как студента.
1698 +133
0
Как определить конкурентоспособность будущего поколения в научной деятельности.
1123 +54
0
Доверьте свою работу экспертам
Разместите заказ
Наша система отправит ваш заказ на оценку 29 204 авторам
Первые отклики появятся уже в течение 10 минут