Var k:integer;
function sr(n:integer):real;
var i,s:integer;
begin
s:=0;
for i:=1 to n do s:=s+i*i;
sr:=s/n;
end;
begin
write('k='); readln(k);
writeln('Среднее арифметическое = ', sr(k));
end.
Пример:
k=5
Среднее арифметическое = 11
<span>оно может быть выражено в разных </span><span>языках</span>
1-я Ошибка: пропущено слово array.
2-я Ошибка: of integer написано слитно.
Исправленный вариант: consta:array[1..4]of integer=(11,7,61,107);
Ответ:2)
Program z1;
uses crt;
var n,m,kd,i,j,s: integer;
begin repeat write('n=');readln(n);
Write('m='); readln(m);
until (n<m);
for i:=n to m do
begin
kd:=0;
for j:=2to i div2do
if i mod j=0then inc(kd);
if kd=0then
begin
write(i,' ');inc(s);
end;
end;
writeln;
writeln('Всего ',s); end.
Начало красный стой жёлтый готовся зелёный иди конец