Главная / Решение олимпиадных задач по информатике / Что делает приведенная ниже программа на Паскале: var a: string; b, i, j, st, n, s, x, k: integer; begin writeln ('введите число'); readln (a); n:=length(a); s:=0; for i:=1 to n do begin val (copy(a,n-i+1,1),x,k); st:=1; for j:=1 to n do st:=st*x; s:=s+st

Что делает приведенная ниже программа на Паскале:

var a: string; b, i, j, st, n, s, x, k: integer; begin writeln ('введите число'); readln (a); n:=length(a); s:=0; for i:=1 to n do begin val (copy(a,n-i+1,1),x,k); st:=1; for j:=1 to n do st:=st*x; s:=s+st; end; val (a, x, k); if s=x then writeln ('+') else writeln ('-'); end.

вопрос

Правильный ответ:

программа определяет равенство числа сумме цифр этого числа, возведенных в math-ую степень (math - количество цифр числа)
программа находит сумму чисел, у которых одинаково произведений цифр (всего math чисел)
программа находит цифровой корень числа math.
Сложность вопроса
58
Сложность курса: Решение олимпиадных задач по информатике
77
Оценить вопрос
Очень сложно
Сложно
Средне
Легко
Очень легко
Комментарии:
Аноним
Зачёт защитил. Лечу выпивать отмечать зачёт интуит
07 апр 2019
Аноним
спасибо за пятёрку
16 дек 2017
Оставить комментарий
Другие ответы на вопросы из темы программирование интуит.