1.Сколько раз выполняется цикл: For t:=0 to 7 do
M:=m+15;
1. 7;
2. 8;
3. 1;
4. Ни разу?
2. Сколько раз выполняется цикл:
For t:= 7 to 7 do
k:=k+1;
1. 7;
2. 2;
3. 1;
4. Ни разу?
3. Сколько раз выполняется цикл:
For t:= 5 to 2 do
g:=g*g;
1. 5;
2. 2;
3. 1;
4. Ни разу?
4.Какие значения t и k выведутся на экран в результате исполнения следующего фрагмента программы:
t:=0; k:=0;
For i:= 2 to 4 do
begin
t:=t+1;
k=k-1:
end;
writeln (t,k);
1. 3, -3;
2. 4, -4;
3. 2, -2;
4. 0, 0?
5. Что находит программа:
Program prim2;
var a,b,c: integer;
begin
readln(a); b:=a;
for c:=1 to 5 do
begin
readln(a);
if a>b hen b:=a;
end;
writeln(b);
end.
1. Минимальное значение;
2. количество;
3. меняет переменные местами;
4. максимальное значение?
6.Определить значение переменной m после выполнения фрагмента программы:
x:=1; m:=0;
while x<=3 do
begin
m:=m+x; x:=x+1;
end;
1. 2;
2. 3;
3. 6;
4. 4?
7. Какой фрагмент программы вычисляет значение функции y=x2+1 на промежутке [0;5] с шагом 0,5
1. x:=0;
If x<=5 then begin y:=x*x+1; x+x+0.5 end;
2. x:=0;
while x<=5 do begin y:=x*x+1; x:=x+0.5 end;
3. while x<=5 do begin x:=0; y:=x*x+1; x:=x+0.5 end;
4. x:=0;
while x<=5 do y:=x*x+1; x:=x+0.5?
8.Какие значения получат переменные a и b после выполнения фрагмента программы:
a:=0; b:=12;
while b-a>2 do
begin
a:=a+2; b:=b-2;
end;
writeln(a,b);
1. 6, 6;
2. 2, 10;
3. 4, 8;
4. 0, 2?
9.Определить результат вывода на экран значения r в фрагменте программы:
r:=1: p:=1;
Repeat
r:=r*p;
p:=p+1;
until(p>=5);
writeln(r):
1. 1;
2. 5;
3. 120;
4. 24.
10. Какие значения m и n должны вводиться, чтобы на экран после исполнения фрагмента программы вывелось число 12?
Readln(m,n);
Repeat
If m>n then m:=m-n else n:=n-m;
Until(m=n);
Writeln(m);
1. 12, 18;
2. 54, 12;
3. 48, 24
4. 24, 36.
M:=m+15;
1. 7;
2. 8;
3. 1;
4. Ни разу?
2. Сколько раз выполняется цикл:
For t:= 7 to 7 do
k:=k+1;
1. 7;
2. 2;
3. 1;
4. Ни разу?
3. Сколько раз выполняется цикл:
For t:= 5 to 2 do
g:=g*g;
1. 5;
2. 2;
3. 1;
4. Ни разу?
4.Какие значения t и k выведутся на экран в результате исполнения следующего фрагмента программы:
t:=0; k:=0;
For i:= 2 to 4 do
begin
t:=t+1;
k=k-1:
end;
writeln (t,k);
1. 3, -3;
2. 4, -4;
3. 2, -2;
4. 0, 0?
5. Что находит программа:
Program prim2;
var a,b,c: integer;
begin
readln(a); b:=a;
for c:=1 to 5 do
begin
readln(a);
if a>b hen b:=a;
end;
writeln(b);
end.
1. Минимальное значение;
2. количество;
3. меняет переменные местами;
4. максимальное значение?
6.Определить значение переменной m после выполнения фрагмента программы:
x:=1; m:=0;
while x<=3 do
begin
m:=m+x; x:=x+1;
end;
1. 2;
2. 3;
3. 6;
4. 4?
7. Какой фрагмент программы вычисляет значение функции y=x2+1 на промежутке [0;5] с шагом 0,5
1. x:=0;
If x<=5 then begin y:=x*x+1; x+x+0.5 end;
2. x:=0;
while x<=5 do begin y:=x*x+1; x:=x+0.5 end;
3. while x<=5 do begin x:=0; y:=x*x+1; x:=x+0.5 end;
4. x:=0;
while x<=5 do y:=x*x+1; x:=x+0.5?
8.Какие значения получат переменные a и b после выполнения фрагмента программы:
a:=0; b:=12;
while b-a>2 do
begin
a:=a+2; b:=b-2;
end;
writeln(a,b);
1. 6, 6;
2. 2, 10;
3. 4, 8;
4. 0, 2?
9.Определить результат вывода на экран значения r в фрагменте программы:
r:=1: p:=1;
Repeat
r:=r*p;
p:=p+1;
until(p>=5);
writeln(r):
1. 1;
2. 5;
3. 120;
4. 24.
10. Какие значения m и n должны вводиться, чтобы на экран после исполнения фрагмента программы вывелось число 12?
Readln(m,n);
Repeat
If m>n then m:=m-n else n:=n-m;
Until(m=n);
Writeln(m);
1. 12, 18;
2. 54, 12;
3. 48, 24
4. 24, 36.
More Questions From This User See All