Главная /
Решение олимпиадных задач по информатике /
Назначение программы на Паскале… var a: string; b, i, st, n, s, x, k:integer; begin readln (a); readln(b); n:=length(a); s:=0; st:=1; for i:=1 to n do begin val (copy(a,n-i+1,1),x,k); s:=s+x*st; st:=st*b; end; writeln (s); end.
Назначение программы на Паскале…
Правильный ответ:
переводить число a из b-ричной системы счисления (b<10) в 10-тичную
переводить число a из 10-тичной системы счисления в b-ричную (b<10)
находить цифровой корень числа а (цифровой корень числа получают суммированием, затем суммированием цифр полученной суммы и так до тех пор, пока вновь полученная сумма не будет сосотоять из одной цифры)
получать сумму цифр числа
Сложность вопроса
93
Сложность курса: Решение олимпиадных задач по информатике
77
Оценить вопрос
Комментарии:
Аноним
Экзамен сдан на 4. Спасибо vtone
12 ноя 2019
Аноним
Кто ищет эти ответы по интуит? Это же очень простые ответы
13 дек 2016
Другие ответы на вопросы из темы программирование интуит.
- # Для нахождения площади треугольника используют формулу Герона: , где - длины сторон, - …
- # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива А={1, 2, 3}. … for i:=1 to n do for j:=i to n do writeln (A[i], A[j]); … Введите результат вывода программы без пробелов:
- # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, двумерный массив будет заполнен так: … for i:=1 to 4 do for j:=1 to 5 do x[i,j]:=i; …
- # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, значение переменной будет равно: … n:=3; s:=0; k:=1; for i:=1 to n do for j:=1 to n do begin x[i,j]:=k; k:=k+1; end for i:=1 to n do for j:=1 to n do if (i<=n-j+1) then s:=s+x[i,j]; …
- # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, массив Flag будет содержать: … n:=5; for i:=1 to n do a[i]:=i; for i:=2 to n div 2 do if flag[i]=0 then for j:=i+1 to n do if (a[j] mod a[i]=0) then flag[j]:=1; …