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

352
0

Ответ: 20

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

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

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

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

Делимся основными ошибками, которые из года в год допускают старшеклассники.
1430 +174
0
Как к ним подготовиться и что отвечать.
3372 +138
3
Каким Джон Леннон был вне сцены, как творил и любил.
1077 +85
0
Доверьте свою работу экспертам
Разместите заказ
Наша система отправит ваш заказ на оценку 33 768 авторам
Первые отклики появятся уже в течение 10 минут
Напишем уникальную работу
Скидка 10%