Консультация по Тренингу №2

Ответы к тренигу №2

Ответы к заданиям с выбором ответа:

A1	4	A8	3
A2	3	A9	1
A3	4	A10	2
A4	3	A11	3
A5	3	A12	3
A6	1	A13	3
A7	2

Ответы к заданиям с кратким ответом

B1	121211	B9	14
B2	71	B10	А120
B3	4	B11	BHEA
B4	27	B12	4000
B5	165	B13	32
B6	840	B14	-3
B7	5	B15	25
B8	986

Ответы к заданиям с развернутым ответом

C1	Неверно работает при (a,b,x)=(0,0,0) Лишняя часть — ввод x. После if b = 0 then добавить if a = 0 then   write('любое число') else ...
C2	x:=200; for i:=1 to N do   if (A[i] >= 180) and (A[i] < x) then     x:=A[i]; writeln(x);
C3	1а. для всех S от 17 до 32 1б. S = 14, 15 или 16 2. S = 7, 8, 11, 12 или 13 (выбрать три из этих вариантов) 3. S = 4, 9 или 10
C4	var count:array[1..26] of integer;     i, k, cA:integer;     c: char; begin   cA := 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;   until c = '.';   for i:=1 to 26 do     if count[i] > 0 then       writeln(char(cA+i-1), count[i]); end.