Вопрос10
Заданы переменные
целочисленные: i:=3; j:=10; k:=255;
вещественные: r1:=15.53; r2:=155.57;
символьные: c1:='D'; c2:='F';
строковые: s1:='IVANOV'; s2:='TUSUR';
Написать, что выведет оператор Writeln на экран?
Writeln('i=',i:6,'5','5<>',6=6,'**r1=**',r1:6:1,'s1',s1:8,'c1=',c1);
Вместо пробела при вводе ответа набирайте восклицательный знак !
Ответ (i=!!!!!355<>TRUE,**r1=**!!15.5s1=!!IVANOVc1=D)
Идентификаторы.
Вопрос1
#{#menu#size07
Указать строку с неправильно записанным идентификатором.
1) My_name
Правильно 2) My Fam
3) My__Fam
4) MaFam
5) MyfAM
6) mYfam
7) MyFaM
Вопрос2
Указать строку с неправильно записанным идентификатором.
1) Stroka2
2) Stroka_2
Правильно 3) 2Stroka
4) _2Stroka
5) strKA_22
6) __Stroka2
Вопрос3
Указать строку с неправильно записанным идентификатором.
1) Sigma_NaMR
2) SigmaFun
3) Sigment_2
Правильно 4) Name*Sigm
5) Seector_saw2
6) Solot_2_2
Вопрос4
Указать строку с неправильно записанным идентификатором.
Правильно 1) Name_@
2) Name_W3
3) Name_2_2
4) Name_345
5) Nameytyt
6) Name_asdf
Вопрос5
#{#menu#size05
Указать строку с неправильно записанным идентификатором.
1) RiveMoscow
2) Rive_Moscow
3) RiveMoscow_
4) _RiveMoscow
Правильно 5) Rive_"Moscow"
Вопрос6
Указать строку с неправильно записанным идентификатором.
1) Asda
Правильно 2) \@Asda
3) Asda_Root
4) Asda_sin
5) Asdatrue
6) aSDAr1
Вопрос7
Указать строку с неправильно записанным идентификатором.
1) sinhron
2) sin_hron
3) hron
Правильно 4) Do
5) Zinger
6) sin_kappa
Вопрос8
Указать строку с неправильно записанным идентификатором.
1) My_Var
2) mY_vAR
3) Var1
4) Var_1
Правильно 5) Var
6) Variable_fun
Вопрос9
Указать строку с неправильно записанным идентификатором.
1) Alpha
Правильно 2) "Alpha"
3) Alpha_sin
4) Alphaselect
5) Alpha1select
6) Alpha_login_1
Массивы и индексы.
Вопрос1
Введите номер строки, в которой находится ошибка:
a:array[1..6] of integer;
begin
1 a[1]:=2*5+1;
2 a[2]:=33;
3 a[3]:=a[1]+a[2];
4 a[4]:=a1[2]+44.5;
5 a[5]:=a[2]+33;
6 a[6]:=22*3
Ответ (4)
Вопрос2
Введите номер строки, в которой находится ошибка:
a:array[1..6] of integer;
i:integer;
begin
1 i:=2;
2 a[i/2]:=2+1;
3 a[i]:=33;
4 a[3]:=a[i]+55;
5 a[i*2]:=445-3;
Ответ (2)
Вопрос3
Введите номер строки, в которой находится ошибка:
a:array[1..6] of integer;
i:integer;
begin
1 i:=3;
2 a[1]:=22;
3 a[i*2]:=i+1;
4 a[i+3]:=33;
5 a[i*4]:=a[1]+5;
Ответ (5)
Вопрос4
Введите номер строки, в которой находится ошибка:
a:array[1..6] of integer;
i:integer;
begin
1 i:=2;
2 a[i*2+1]:=2+1;
3 a[i-1]:=3;
4 a[i-2]:=a[1]+5;
5 a[5]:=a[1]+3
6 a[6]:=3;
Ответ (4)
Вопрос5
Введите номер строки, в которой находится ошибка:
a:array[1..6] of integer;
i:integer;
begin
1 i:=2;
2 a[i/3]:=3;
3 a[i]:=5;
4 a[3]:=a[2]+7;
5 a[i*2]:=333;
Ответ (2)
Вопрос6
Определить значение переменной S при выводе ее на экран.
Var
s,i,j :integer;
a :array[1..3,1..3] of integer;
begin
s:=0;
a[1,1]:=3; a[1,2]:=7; a[1,3]:=10;
a[2,1]:=5; a[2,2]:=8; a[2,3]:=2;
a[3,1]:=11; a[3,2]:=5; a[3,3]:=11;
For i:=1 to 2 do For j:=1 to 3 do s:=s+a[i,j];
Writeln(S);
end.
Введите полученное число.
Ответ (35)
Вопрос7
Определить значение переменной S при выводе ее на экран.
Var
s,i,j :integer;
a :array[1..3,1..3] of integer;
begin
s:=0;
a[1,1]:=3; a[1,2]:=7; a[1,3]:=10;
a[2,1]:=5; a[2,2]:=8; a[2,3]:=2;
a[3,1]:=11; a[3,2]:=5; a[3,3]:=11;
For i:=1 to 3 do For j:=1 to 2 do s:=s+a[i,j];
Writeln(S);
end.
Введите полученное число.
Ответ (39)
Вопрос8
Определить значение переменной S при выводе ее на экран.
Var
s,i,j :integer;
a :array[1..3,1..3] of integer;
begin
s:=0;
For i:=1 to 3 do For j:=1 to 3 do
a[i,j]:=i*j;
For i:=1 to 3 do For j:=1 to 3 do s:=s+a[i,j];
Writeln(S);
end.
Введите полученное число.
Ответ (36)
Вопрос9
Определить значение переменной S при выводе ее на экран.
Var
s,i,j :integer;
a :array[1..3,1..3] of integer;
begin
s:=0;
For i:=1 to 3 do For j:=1 to 3 do
a[i,j]:=i+j;
For i:=1 to 3 do For j:=1 to 3 do s:=s+a[i,j];
Writeln(S);
end.
Введите полученное число.
Ответ (36)
Оператор цикла FOR.
Вопрос1
Введите, чему будет равно значение переменной S, выведенное на экран?
Program Primer1;
Var
S,i : integer;
begin
S:=0;
For i:=3 to 6 do s:=s+i*i;
Writeln(S);
end.
Ответ (86)
Вопрос2
Введите, чему будет равно значение переменной S при выводе на экран?
Program Primer2;
Var
S,i:integer;
begin
S:=4; For i:=8 to 3 do S:=S+i;
Writeln(S);
end.
Ответ (4)
Вопрос3
#{#menu#size07
Укажите на строку программы, в которой допущена ошибка:
Program summa;
Var
Правильно 1) S,r1:real;
2) begin
Правильно 3) For r1:=1 to 10 do
4) begin S:=s+r1;
5) Writeln('r1=',r1,' S:=',S);
6) end;
7) end.
Вопрос4
Введите значение переменной Р при выводе на экран.
Program Primer4;
Var
P,i:integer;
begin
P:=1;
For i:=1 to 5 do P:=P*i;
Writeln(P);
end.
Ответ (120)
Вопрос5
Сколько раз выполнится оператор в теле цикла?
Program Primer5
Var
i,j:integer;
begin
For i:=3 to 20 do
j:=i;
end.
Ответ (18)
Вопрос6
Сколько раз выполнится оператор в теле цикла?
Program Primer6;
Var
i,j:integer;
begin i:=0;
For j:=10 downto 5 do i:=i+1;
end.
Ответ (6)
Вопрос7
Сколько раз выполнятся операторы в теле цикла?
Programa Primer7;
Var i:integer;
SS:real;
begin SS:=0;
For i:=1 to 6 do
begin i:=i+1; SS:=SS+1.0;
end;
end.
Ответ (3)
Вопрос8
Чему равно значение переменной S при выводе ее на экран?
Program Primer8;
Var S,i:integer;
begin
s:=0;
For i:=1 to 5 do
S:=S+2*i;
Writeln(S:5);
end.
Ответ (30)
Вопрос9
#{#menu#size07
Указать строку программы, в которой допущена ошибка?
Program Primer9;
Правильно 1) Var i:byte;
2) S:real;
Правильно 3) begin For i:=1 to 300 do
4) begin S:=S+1/i;
5) Writeln(i:=5,S:10:5);
6) end;
7) end.
Вопрос10
Чему равно значение переменной i при выводе ее на экран?
Program Primer10;
Var
i:integer;
S:real;
begin
For i:=1 to 20 do
S:=i;
Writeln(i);
end.
Ответ (20)
Операторы цикла WHILE и REPEAT.
Вопрос1
Чему равно значение переменной S2 при выводе ее на экран?
Program prim1;
Var S1,S2:integer;
begin S1:=10; S2:=20;
While S1<5 do
begin S1:=S1+1; S2:=S2+S1;
end;
Writeln(S2:10);
end.
Ответ (20)
Вопрос2
Чему равно значение переменной S2 при выводе ее на экран?
Program Prim2;
Var S1,S2:integer;
begin ClrScr;
S1:=4; S2:=10;
While S1<=10 do
begin S1:=S1+1; S2:=S2+S1;
end;
Writeln(S2);
end.
Ответ (66)
Вопрос3
Чему равно значение переменной S2 при выводе ее на экран?
Program Prim3;
Var S1,S2:integer;
begin S1:=3; S2:=5;
Repeat S1:=S1+1; S2:=S2+S1;
until S1>0;
Writeln(S2);
end.
Ответ (9)
Вопрос4
Чему равно значение переменной S при выводе ее на экран?
Program Prim4;
Var S:real;
begin S:=1;
while S<=10 do
S:=S+S;
Writeln(S);
end.
Ответ (16)
Вопрос5
Чему равно значение переменной S при выводе ее на экран?
Program Prim5;
Var S:real;
begin S:=1;
Repeat
S:=S+S;
until S>=10;
Writeln(S);
end.
Ответ (16)
Вопрос6
Чему равно значение переменной i_s при выводе ее на экран
Program Prim6;
Var i,j,i_s:integer;
begin i:=0; j:=1; i_s:=0;
While i<=10 do
begin i:=i+1; j:=j+1; i_s:=i+j;
end;
Writeln(i_s);
end.
Ответ (23)
Вопрос7
Чему равно значение переменной j при выводе ее на экран?
Program Prim7;
Var i,j:integer;
begin i:=5; j:=0;
While i>=5 do
begin j:=j+1; i:=i-1;
end;
Writeln(j);
end.
Ответ (1)
Вопрос9
Чему равно значение переменной i при выводе ее на экран?
Primer Prim9;
Var i,j,k:integer;
begin i:=0; j:=1; k:=1;
While k<5 do
begin i:=i+j+k; j:=j+1; k:=k+1;
end;
Writeln(i);
end.
Ответ (20)
Вопрос10
Чему равно значение переменной Р при выводе ее на экран?
Primer Prim10;
var i:integer; P:real;
begin i:=1; P:=1;
While i<=6 do
begin i:=i+1; P:=P*i;
end;
Writeln(P:12:1);
end.
Ответ (5040)
Оператор выбора CASE.
Вопрос1
Чему будет равна целочисленная переменная j после выполнения оператора Case?
Var i,j:integer;
begin j:=0; i:=5;
Case i of
2,3 : j:=1;
4 : j:=2;
6,1 : j:=3;
7,5 : j:=4;
5,2 : j:=5;
1,2,5 : j:=6;
6,1 : j:=7;
7,7,8 : j:=8;
2,1 : j:=9;
end;
Ответ (4)
Вопрос2
Чему будет равна целочисленная переменная j после выполнения оператора Case?
Var i,j:integer;
begin j:=0; i:=44;
Case i of
7,3 : j:=1;
4,4 : j:=2;
6,1 : j:=3;
7,2 : j:=4;
4,44 : j:=5;
1,2,5 : j:=6;
6,1 : j:=7;
7,44,8 : j:=8;
44,44 : j:=9;
end;
Ответ (5)
Вопрос3
Чему будет равна целочисленная переменная j после выполнения оператора Case?
Var i,j:integer;
begin j:=0; i:=5;
Case i of
2,3 : j:=1;
4,2 : j:=2;
6,1 : j:=3;
3,2 : j:=4;
4,1 : j:=5;
1,8 : j:=6;
6,1 : j:=7;
8 : j:=8;
2,1 : j:=9;
end;
Ответ (0)
Вопрос4
Чему будет равна целочисленная переменная j после выполнения оператора Case?
Var i,j:integer;
begin j:=0; i:=4;
Case i of
2,3 : j:=1;
41 : j:=2;
6,1 : j:=3;
7,5-1 : j:=4;
5,2 : j:=5;
1,2,5 : j:=6;
4 : j:=7;
7,7,8 : j:=8;
2,1 : j:=9;
end;
Ответ (4)
Вопрос5
Чему будет равна целочисленная переменная j после выполнения оператора Case?
Var i,j:integer;
begin j:=0; i:=3*2;
Case i of
2,3 : j:=1;
4 : j:=2;
6-1,1 : j:=3;
7,5 : j:=4;
5,2 : j:=5;
1,2,5+1 : j:=6;
6,1 : j:=7;
7,7,8 : j:=8;
2,1 : j:=9;
end;
Ответ (6)
Вопрос6
Чему будет равна целочисленная переменная j после выполнения оператора Case?
Var i,j:integer;
begin j:=0; i:=8;
Case i of
2,3 : j:=1;
4 : j:=2;
6,1 : j:=3;
7,5 : j:=4;
5,2 : j:=5;
1,2,5 : j:=6;
6,1 : j:=7;
7,7 : j:=8;
else j:=9;
end;
Ответ (9)
Вопрос7
Чему будет равна целочисленная переменная j после выполнения оператора Case?
Var i,j:integer;
begin j:=0; i:=12;
Case i of
2,3 : j:=1;
4 : j:=2;
6,1 : j:=3;
7,5 : j:=4;
1,2,5 : j:=5;
6,1 : j:=6;
7,7,8 : j:=7;
else j:=j+5
end;
Ответ (5)
Вопрос8
Чему будет равна целочисленная переменная j после выполнения оператора Case?
Var i,j:integer;
begin j:=0; i:=15;
Case i of
2,3 : j:=1;
4,11 : j:=2;
6,1 : j:=3;
8,5 : j:=4;
5,2 : j:=5;
1,2,5 : j:=6;
6,1 : j:=7;
3,7+8 : j:=8;
5,1 : j:=9;
end;
Ответ (8)
Вопрос9
Чему будет равна целочисленная переменная j после выполнения оператора Case?
Var i,j:integer;
begin j:=0; i:=25;
Case i of
2,3 : j:=1;
4 : j:=2;
6,1 : j:=3;
5,5,5*5 : j:=4;
5,2 : j:=5;
1,2,5 : j:=6;
6,1 : j:=7;
7,7,8 : j:=8;
2,1 : j:=9;
end;
Ответ (4)
Вопрос10
Чему будет равна целочисленная переменная j после выполнения оператора Case?
Var i,j:integer;
begin j:=0; i:=1;
Case i of
2,3 : j:=1;
4 : j:=2;
6,1 : j:=3;
7,5 : j:=4;
5,2 : j:=7;
1,2,5 : j:=6;
7,7,8 : j:=8;
2,1 : j:=9;
else j:=7;
end;
Ответ (3)