Главная /
Решение олимпиадных задач по информатике /
Что делает приведенная ниже программа на Паскале: 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
Что делает приведенная ниже программа на Паскале:
Правильный ответ:
программа определяет равенство числа сумме цифр этого числа, возведенных в -ую степень ( - количество цифр числа)
программа находит сумму чисел, у которых одинаково произведений цифр (всего чисел)
программа находит цифровой корень числа .
Сложность вопроса
58
Сложность курса: Решение олимпиадных задач по информатике
77
Оценить вопрос
Комментарии:
Аноним
Зачёт защитил. Лечу выпивать отмечать зачёт интуит
07 апр 2019
Аноним
спасибо за пятёрку
16 дек 2017
Другие ответы на вопросы из темы программирование интуит.
- # Количество комбинаторных групп, сформированных двоичным перебором будет равно:
- # Для организации перевода числа а из десятичной в -ричную систему счисления, программа на Паскале (начальный фрагмент которой приведен ниже) … readln (a, n); i:=0; while (a<>0) do begin i:=i+1; x[i]:=a mod n; a:=a div n; end; … должна быть продолжена так:
- # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив Х вводятся числа: 1, 8, 12, 3, 5, 4. Сумма элементов массива У будет равна: … j:=1; k:=0; n:=6; for i:=1 to n do if x[i] mod 2=0 then begin y[j]:=i; j:=j+1; end; …
- # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, квадратный массив будет заполнен таким образом: … for i:=1 to n do for j:=1 to (n-i+1) do x[i,j]:=1; …
- # Приведенный ниже фрагмент программы на Паскале реализует алгоритм заполнения Арифметического квадрата. … for i:=1 to n do begin a[i,1]:=i; a[1,i]:=i; end; for i:=2 to n do for j:=2 to n do a[i,j]:=a[i-1,j]+a[i,j-1]; … Найдите в нем ошибку: