Program Posledow;
Var x, y: real;
Begin
x:=8;
Repeat y:=SQR(x-8)/6;
Writeln (x,' ',y);
x:=x+6;
Until y+5<0;
End.
В классе 20 учеников, из них получили (за четверть или за контрольную - не важно) :
"5" - 3
"4" - 7
"3" - 8
"2" - 1
н/а - 1
(3+7+8)/20*100=90%
..согласно последним веяниям в образовании, двоечников и неаттестованных быть не должно, т. е. , успеваемость должна составлять 100%
Качество - это отношение количества учеников, успевающих на 4 и 5 к количеству успевающих учеников. В нашем примере
(3+7)/18*100=55,6%
const
handsfree = false;
nmax = 31;
random_min = -20;
random_max = 30;
var
a: array[1..nmax] of real;
i, n, j: integer;
k: integer;
begin
{ввод массива}
if handsfree then
n := random(nmax - 5) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
else
readln(a[i]);
end;
writeln();
{подсчет элементов}
k := 0;
for i := 1 to n do
if a[i] = 15 then
k := k + 1;
writeln('quantity = ', k);
end.
Ответ:
не понятно ничего..........
Галочка вниз-дизъюнкция,это и есть сложение