Главная /
Решение олимпиадных задач по информатике /
[формула] в результате работы программы на Паскале, фрагмент которой приведен ниже: … for i:=1 to 5 do a[i]:=i-6; m:=0; for i:=1 to 5 do if a[i]>m then m:=a[i]; …
Определите содержимое переменной 
в результате работы программы на Паскале, фрагмент которой приведен ниже:
Правильный ответ:
0
-1
-5
1
5
Сложность вопроса
83
Сложность курса: Решение олимпиадных задач по информатике
77
Оценить вопрос
Комментарии:
Аноним
Это очень заурядный тест intuit.
28 июн 2018
Другие ответы на вопросы из темы программирование интуит.
- # Признак пересечения одного выпуклого многоугольника с другим:
-
#
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов (пазмещения без повторений) из исходного массива
![math]()
. Какой логический знак должен стоять вместо знака вопроса в логическом выражении:
…
for i:=1 to n do
for j:=1 to n do
if i ? j then write (A[i], A[j],',');
…
- # Количество комбинаторных групп, сформированных двоичным перебором будет равно:
-
#
Найдите ошибки в приведенной ниже программе на Паскале, которая выполняет перевод числа
![math]()
из 10-тичной в ![math]()
-ричную систему счисления (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.
-
#
В результате работы программы, фрагмент которой приведен ниже, идет проверка правильности расстановок скобок в арифметическом выражении. Что будет результатом работы программы, если в данном выражении (например:
![math]()
избыточное количество скобок:
…
n:=length (stroka); s:=0;
for i:=1 to n do
begin a[i]:=copy(stroka, i, 1); flag[i]:=0; end;
for i:=1 to n do
begin if a[i]="(" then flag [i]:=1; if a[i]=")" then flag [i]:=-1; end;
for i:=1 to n do
begin s:=s+flag [i]; if s<0 then x:=1; end;
if (s=0) and (x=0) then writeln ('верно')
else writeln ('неверно');
…
. Какой логический знак должен стоять вместо знака вопроса в логическом выражении:
…
for i:=1 to n do
for j:=1 to n do
if i ? j then write (A[i], A[j],',');
… 
из 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. 
избыточное количество скобок:
…
n:=length (stroka); s:=0;
for i:=1 to n do
begin a[i]:=copy(stroka, i, 1); flag[i]:=0; end;
for i:=1 to n do
begin if a[i]="(" then flag [i]:=1; if a[i]=")" then flag [i]:=-1; end;
for i:=1 to n do
begin s:=s+flag [i]; if s<0 then x:=1; end;
if (s=0) and (x=0) then writeln ('верно')
else writeln ('неверно');
…