Ответы к тренигу №1
Тренинг № 1 задаём вопросы, обозначаем трудности
Ответы к
заданиям с выбором ответа:
A1
|
1
|
A8
|
1
|
A2
|
4
|
A9
|
2
|
A3
|
2
|
A10
|
3
|
A4
|
2
|
A11
|
2
|
A5
|
1
|
A12
|
3
|
A6
|
3
|
A13
|
3
|
A7
|
4
|
Ответы к
заданиям с кратким ответом
B1
|
11121
|
B9
|
12
|
B2
|
9
|
B10
|
А216
|
B3
|
2
|
B11
|
DFAB
|
B4
|
8
|
B12
|
1500
|
B5
|
55
|
B13
|
36
|
B6
|
360
|
B14
|
1
|
B7
|
3
|
B15
|
11
|
B8
|
871
|
Ответы к
заданиям с развернутым ответом
C1
|
Неверно
работает при (a,b,x)=(1,-1,0)
Лишняя часть — ввод x. После последнего else добавить
if a*b < 0 then
write('нет решений') else ... |
C2
|
x:=0; y:=0;
for i:=1 to N do if A[i] > 20 then begin x := x + 1; y := y + A[i]; end; s:= y/x; writeln(s); |
C3
|
1а. для всех S от 13 до 24
1б. S = 11 или 12 2. S = 6, 9, 10 3. S = 7 или 8 |
C4
|
var count:array[1..26] of integer;
i, k, cA, cAm, iMax:integer; c: char; begin cA := Ord('A'); cAm := Ord('a'); for i:=1 to 26 do count[i] := 0; repeat read(c); k := Ord(c); if ('A' <= c) and (c <= 'Z') then count[k-cA+1] := count[k-cA+1] + 1; if ('a' <= c) and (c <= 'z') then count[k-cAm+1] := count[k-cAm+1] + 1; until c = '.'; iMax := 1; for i:=2 to 26 do if count[i] > count[iMax] then iMax := i; writeln(char(cA+iMax-1), ' ', count[iMax]); end. |
Тренинг № 1 задаём вопросы, обозначаем трудности
Комментариев нет:
Отправить комментарий