Program p1;
var sr,sr1:real;
p,i:integer;
begin
Write('Введите число учащихся: ');
Readln(p);
sr:=0;
sr1:=0;
for i:=1 to p do
begin
Write('Введите средний балл ученика: ');
readln(sr1);
sr:=sr+sr1;
end;
Writeln('Средний балл группы равен: ',sr/p);
<span>end.</span>
program dz2;
var a,b,c,d,f,max:Integer;
begin
Writeln('введи число');
read(a);
b:= a div 1000;
c:= (a div 100) mod 10;
d:= (a div 10) mod 10;
f:= a mod 10;
max:=b;
if b<c then
max:=c;
if c<d then
max:=d;
if d<f then
max:=f;
Write(max);
end.
Var a,b,c,s,n,i:integer;
begin
readln(n);
b:=1;
for i:=1 to n do
begin
c:=b+a;
s:=s+c;
a:=b;
b:=c;
end;
writeln('s=',s);
<span>end.</span>
Условие означает, что "y должен быть ≤ 8" или "y должен быть > 16"
Среди вариантов ответа подходит только число 8.
Ответ: 2) 8