Главная /
Решение олимпиадных задач по информатике /
В результате выполнения какой программы на Паскале (фрагменты приведены ниже) из исходного массива [формула] произойдет такая выборка элементов: 11 12 13 22 23 33
В результате выполнения какой программы на Паскале (фрагменты приведены ниже) из исходного массива
произойдет такая выборка элементов: 11 12 13 22 23 33
вопрос
Правильный ответ:
Сложность вопроса
92
Сложность курса: Решение олимпиадных задач по информатике
77
Оценить вопрос
Комментарии:
Аноним
Экзамен сдан на отлично.!!!
19 янв 2019
Аноним
Это очень элементарный вопрос intuit.
01 янв 2018
Другие ответы на вопросы из темы программирование интуит.
-
#
В результате выполнения какой программы на Паскале (фрагменты приведены ниже) из исходного массива
произойдет такая выборка элементов: 11 12 13 21 22 23 31 32 33
- # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива, соответствующая такому основному типу комбинаторных групп: ... for i:=1 to n do for j:=i to n do writeln (A[i], A[j]); …
-
#
Для организации перевода числа а из десятичной в
-ричную систему счисления, программа на Паскале (начальный фрагмент которой приведен ниже)
…
readln (a, n);
i:=0;
while (a<>0) do
begin
i:=i+1;
x[i]:=a mod n;
a:=a div n;
end;
…
должна быть продолжена так:
-
#
Найдите ошибки в приведенной ниже программе на Паскале, которая выполняет перевод числа
из 10-тичной в
-ричную систему счисления (b<10):
var a, b, s, x: real;
begin
readln (a); readln (b); s:=0;
while (a<>0) do
begin
x:=a mod b; s:=s+x; a:=a div b;
end;
writeln (s);
end.
- # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в переменной M будет находиться: … j:=0; m:=1; n:=10; for i:=1 to n do x[i]:=i; for i:=1 to n do begin if x[i] mod 3=0 then begin j:=j+1; y[j]:=i; end; end; for i:=1 to j do m:=m*x[y[i]]; …
произойдет такая выборка элементов: 11 12 13 22 23 33
-ричную систему счисления, программа на Паскале (начальный фрагмент которой приведен ниже)
…
readln (a, n);
i:=0;
while (a<>0) do
begin
i:=i+1;
x[i]:=a mod n;
a:=a div n;
end;
…
должна быть продолжена так:
из 10-тичной в
-ричную систему счисления (b<10):
var a, b, s, x: real;
begin
readln (a); readln (b); s:=0;
while (a<>0) do
begin
x:=a mod b; s:=s+x; a:=a div b;
end;
writeln (s);
end.