Массивы и усл. оператор
1st - 5th Grade
•9 Qs
Similar activities
Kiểm tra chương II: Chương trình đơn giản
1st Grade
•5 Qs
Combinaciones de Teclas
1st Grade
•10 Qs
For Command
1st - 10th Grade
•10 Qs
Ai nhanh hơn For-do
5th Grade - University
•10 Qs
bai 2Tin11
KG - 1st Grade
•10 Qs
BÀI TẬP ỨNG DỤNG BÀI 4_TIN HỌC 3
3rd Grade
•10 Qs
Finger Placement
3rd Grade
•10 Qs
rekenen (kelis & fleur )
1st Grade
•8 Qs
Массивы и усл. оператор
Quiz
•
Computers
•
1st - 5th Grade
•
Medium
Alexandra Ryabkova
Used 11+ times
FREE Resource
9 questions
Show all answers
1.
FILL IN THE BLANK QUESTION
15 mins • 1 pt
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 12; Dat[2] := 15;
Dat[3] := 17; Dat[4] := 15;
Dat[5] := 14; Dat[6] := 12;
Dat[7] := 10; Dat[8] := 13;
Dat[9] := 14; Dat[10] := 15;
m := 0;
for k := 1 to 10 do
if Dat[k] > m then
begin
m := Dat[k];
end;
writeln(m);
End.
2.
FILL IN THE BLANK QUESTION
15 mins • 1 pt
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 12; Dat[2] := 15;
Dat[3] := 17; Dat[4] := 15;
Dat[5] := 14; Dat[6] := 12;
Dat[7] := 10; Dat[8] := 13;
Dat[9] := 14; Dat[10] := 15;
m := 0;
for k := 1 to 10 do
if Dat[k] > 12 then
begin
m := m + 1;
end;
writeln(m);
End.
3.
FILL IN THE BLANK QUESTION
15 mins • 1 pt
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 56; Dat[2] := 70;
Dat[3] := 20; Dat[4] := 41;
Dat[5] := 14; Dat[6] := 22;
Dat[7] := 30; Dat[8] := 12;
Dat[9] := 65; Dat[10] := 35;
m := 100;
for k := 1 to 10 do
if Dat[k] < m then
begin
m := Dat[k];
end;
writeln(m);
End.
4.
FILL IN THE BLANK QUESTION
15 mins • 1 pt
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 56; Dat[2] := 70;
Dat[3] := 20; Dat[4] := 41;
Dat[5] := 14; Dat[6] := 22;
Dat[7] := 30; Dat[8] := 12;
Dat[9] := 65; Dat[10] := 35;
m := 0;
for k := 1 to 10 do
if Dat[k] > m then
begin
m := Dat[k];
end;
writeln(m);
End.
5.
FILL IN THE BLANK QUESTION
15 mins • 1 pt
Var k, m, term: integer;
Dat: array[1..8] of integer;
Begin
Dat[1] := 7; Dat[2] := 7;
Dat[3] := 6; Dat[4] := 8;
Dat[5] := 4; Dat[6] := 5;
Dat[7] := 4; Dat[8] := 7;
m := Dat[1];
term := 1;
for k := 2 to 8 do
if Dat[k] < m then
begin
m := Dat[k];
term := k;
end;
writeln(term);
End.
6.
FILL IN THE BLANK QUESTION
15 mins • 1 pt
Var k, m, month: integer;
Dat: array[1..12] of integer;
Begin
Dat[1] := 5; Dat[2] := 5;
Dat[3] := 6; Dat[4] := 8;
Dat[5] := 4; Dat[6] := 5;
Dat[7] := 4; Dat[8] := 7;
Dat[9] := 4; Dat[10] := 4;
Dat[11] := 8; Dat[12] := 7;
m := Dat[1];
month := 1;
for k := 2 to 12 do
if Dat[k] <= m then
begin
m := Dat[k];
month := k;
end;
writeln(month);
End.
7.
FILL IN THE BLANK QUESTION
15 mins • 1 pt
Var k, m, day: integer;
Dat: array[1..7] of integer;
Begin
Dat[1] := 7; Dat[2] := 9;
Dat[3] := 10; Dat[4] := 8;
Dat[5] := 6; Dat[6] := 7;
Dat[7] := 6;
day := 1;
m := Dat[1];
for k := 2 to 7 do
if Dat[k] < m then
begin
day := k;
m := Dat[k];
end;
writeln(day);
End.
8.
FILL IN THE BLANK QUESTION
15 mins • 1 pt
var s, k: integer;
begin
readln(s);
readln(k);
if s <= 2 * k
then writeln ('ДА')
else writeln ('НЕТ')
end.
(1, 2); (8, 4); (6, −12); (−5, −5); (3, 11); (—10, 12); (—10, −2); (4, 1); (2, 5).
Сколько было запусков, при которых программа напечатала «ДА»?
9.
FILL IN THE BLANK QUESTION
15 mins • 1 pt
var s, k: integer;
begin
readln(s);
readln(k);
if s div 2 = k
then writeln ('ДА')
else writeln ('НЕТ')
end.
(1, 1); (8, 4); (14, 10); (20, 1); (7, 3); (10, 5); (10, 2); (4, 1); (1, 0).
Сколько было запусков, при которых программа напечатала «НЕТ»?
Similar Resources on Wayground
10 questions
juego de teclas en Word
Quiz
•
4th - 6th Grade
14 questions
Características de las señales electromagnéticas
Quiz
•
5th Grade
10 questions
Keyboarding #3
Quiz
•
3rd - 5th Grade
8 questions
Cloudové aplikace - email, eshop, streamování
Quiz
•
1st - 5th Grade
10 questions
Webdev Backend Level 2
Quiz
•
5th - 8th Grade
12 questions
Typing
Quiz
•
KG - University
10 questions
Plants vs zombies 2 quiz on plant names
Quiz
•
KG - 12th Grade
10 questions
Klávesnice, typografie
Quiz
•
5th - 6th Grade
Popular Resources on Wayground
10 questions
Lab Safety Procedures and Guidelines
Interactive video
•
6th - 10th Grade
10 questions
Nouns, nouns, nouns
Quiz
•
3rd Grade
10 questions
Appointment Passes Review
Quiz
•
6th - 8th Grade
25 questions
Multiplication Facts
Quiz
•
5th Grade
11 questions
All about me
Quiz
•
Professional Development
22 questions
Adding Integers
Quiz
•
6th Grade
15 questions
Subtracting Integers
Quiz
•
7th Grade
20 questions
Grammar Review
Quiz
•
6th - 9th Grade
Discover more resources for Computers
12 questions
3-5 Digital Citizenship: Appropriate Use
Quiz
•
3rd - 5th Grade
20 questions
logo quiz
Quiz
•
3rd Grade
11 questions
Spanish - English Cognates 4th
Quiz
•
4th - 5th Grade
10 questions
Networking Devices and Their Functions
Interactive video
•
5th - 8th Grade
15 questions
Chromebook Care
Quiz
•
1st - 5th Grade