var i,s,a,k: integer;
begin
for i:=1 to 8 do
begin
readln (a);
if a>0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln;
writeln ('Среднее арифметическое положительных чисел: ',s/k)
end.
В оооочень сильно устаеревших учебниках под телеконференциями понимают <span>организованный тематический обмен сообщениями между пользователями сети. Сейчас это чаще называют форумами.
Чтобы стать участником форума, надо зайти на сайт форума, если требуется, зарегистрироваться, и общаться.
Другие сервисы - электронная почта, IP телефония, чаты и пр.</span>
Var n,p,k,i,j:integer; f:boolean;
begin
write('n = ');
readln(n);
p:=2;
for i:=2 to n do
begin
f:=false;
while not f do
begin
p:=p+1;
k:=0;
for j:=2 to round(sqrt(p)) do
if p mod j = 0 then k:=k+1;
f:=k=0;
end;
end;
writeln(p);
end.
Пример:
n = 25
97
<span>142</span>×<span>4=568 Мб
</span>В флешке останется еще 1,5 Гб
А компьютер не выделяет красненьким примерное место, где есть ошибка?