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

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

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

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

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

B1	12211	B9	8
B2	75	B10	Б6
B3	8	B11	BCAH
B4	343	B12	2500
B5	147	B13	96
B6	315	B14	-48
B7	5	B15	64
B8	987

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

C1	if (-5 <= x) and (x <= 1) or    (7 <= x) and (x <= 13) then      write('принадлежит') else write('не принадлежит');
C2	x:=0; y:=0; for i:=1 to N do   if A[i] > 0 then begin     x:= x + 1;     y:= y + A[i];   end; s:= y/x; writeln(s);
C3	1а. для всех S от 18 до 34 1б. S = 14, 15, 16 или 17 2. S = 7, 8, 10, 11, 12 или 13 (выбрать три из этих вариантов) 3. S = 4, 6 или 9
C4	var Info: array[1..100] of record             name: string;             count: integer;           end;     i, k, p, N, c: integer;     s: string;     exist: boolean; begin   readln(N);   for i:=1 to N do begin     readln(s);     p := Pos(' ', s);     s := Copy(s,1,p-1);     c := 1;     for k:=1 to i-1 do       if s = Info[k].name then          c := c + 1;     Info[i].name := s;     Info[i].count := c;   end;   for i:=1 to N do begin     write(Info[i].name);     if Info[i].count > 1 then write(Info[i].count);     writeln;   end; end.