Консультация по Тренингу №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 задаём вопросы, обозначаем трудности