<span>помогите разгатать ребус ----- </span>графічний редактор
Program zadacha;
var
k,x,i,n:integer;
m:Array[1..100] of Integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin
readln(m[i]);
end;
for i:=2 to n do begin
if m[i]>m[1] then k:=k+1;
end;
write(k);
<span>end.</span>
Var
i: integer;
s: real;
begin
i := 2;
while(i <= 100) do
begin
//writeln(i, '/', i + 1);
s := s + (i / (i + 1));
i := i + 2;
end;
write(s);
end.
vvvvvvvvvvvvvvvvvvvvvvv
Он не мог просто так перестать работать. Вы проводили с ним эксперименты? Не сюда обращаетесь, берите форумы типа 4пда.
Это называется бутлуп, когда телефон на логотипе зависает, лечится перепрошивкой (обычно).
Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do
Begin
x:=sqr(i);
s:=s+x;
End;
Writeln('suma =',s );
<span>End.
2) второе решение
</span>Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do s:=s+sqr(i);
Writeln('suma =',s );
End.<span>
</span>