Массивы и усл. оператор
1st - 5th Grade
•9 Qs
Similar activities
rekenen (kelis & fleur )
1st Grade
•8 Qs
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
Массивы и усл. оператор
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
13 questions
Hardware
Quiz
•
2nd Grade
12 questions
NFL FACTS
Quiz
•
KG - University
12 questions
Основные АК (8 класс параграф 13)
Quiz
•
1st - 9th Grade
6 questions
ОГЭ тип 6 Паскаль Ветвления
Quiz
•
1st - 11th Grade
10 questions
Intro to Photoshop
Quiz
•
3rd - 12th Grade
10 questions
Home Row Keys Quiz
Quiz
•
1st - 2nd Grade
10 questions
KEYBOARD SHORTCUT
Quiz
•
1st Grade
10 questions
Klávesnice
Quiz
•
5th Grade
Popular Resources on Wayground
20 questions
Brand Labels
Quiz
•
5th - 12th Grade
10 questions
Ice Breaker Trivia: Food from Around the World
Quiz
•
3rd - 12th Grade
25 questions
Multiplication Facts
Quiz
•
5th Grade
20 questions
ELA Advisory Review
Quiz
•
7th Grade
15 questions
Subtracting Integers
Quiz
•
7th Grade
22 questions
Adding Integers
Quiz
•
6th Grade
10 questions
Multiplication and Division Unknowns
Quiz
•
3rd Grade
10 questions
Exploring Digital Citizenship Essentials
Interactive video
•
6th - 10th Grade
