не наю че за гамбас
пишу на паскале
var a:array[1..100] of integer;
i,n,k5,k4,k2:integer;
s:real;
Begin
read(n);
for i := 1 to n do begin
writeln('Ввведите оценку учиника ',i);
readln(a[i]);
s:=s+a[i];
if a[i]=5 then k5:=k5+1;
if a[i]=4 then k4:=k4+1;
if a[i]=2 then k2:=k2+1;
end;
writeln(s/n,k5,k4,k2);
End.
Может быть эти задачи на выбывание предметов по условию?!
Ответ:
d) контекстное меню
Объяснение:
мы это в 5 классе проходили
Объяснение:
в 128 символьном алфавите 1 символ равен 7 битам
1120/6= 160
Var
a,b,c,d:double;
Begin
write('a = ');
read(a);
write('b = ');
read(b);
write('c = ');
read(c);
d:=sqrt(b*b-4*a*c);
if d > 0 then begin
writeln('x1 = ', (-b+d)/(2*a));
writeln('x2 = ', (-b-d)/(2*a));
end
else
if d = 0 then
writeln('x = ', -b/(2*a))
else
write('Решений нет');
End.