Прошу с 3 . они весьма легкие, но сейчас уже не имею не возможности, не сил их выполнять, ибо комп вообще весьма далеко. буду за решения! программа в pascale 1. дано n целых чисел. найти среднее арифметическое. 2. вывести первых n целых чисел кратных 7. 3. вводится последовательность чисел пока не введен 0. найти количество четных чисел в наборе.

Уменя тоже комп далеко, поэтому пишу программы прямо на телефоне! ; -) и вот, что получилось (все результаты проверены): program first; type arr = array of integer; var a : arr; i, p, l : integer; f : real; begin writeln('вводите числа (0 - окончание ввода)'); i: =1; l : =0; repeat readln(p); if p=0 then break; setlength(a, i); a[i-1]: =p; i: =i+1; l: =l+1; until p=0; p: =0; for i: =0 to l-1 do p: =p+a[i]; f: =p/l; writeln(f: 5: 2); end. program second; var p, i : integer; begin write('введите количество чисел: '); readln(p); for i: =1 to p do write(7*i, ' '); end. program third; var count, p : integer; begin writeln('вводите числа'); count : =0; repeat readln(p); if p=0 then break; if (p mod 2 = 0) then count: =count+1; until p=0; writeln ('было введено ', count, ' чётных чисел.'); end.

ответ: вроде 16

объяснение: крч могу ошибаться, но это должно рассчитываться по формуле n=2^i

где n искомое, а i это как раз число -4 бита