Чувак это не отака вирусов
збросить данные и это поможет
но придестся заново все скачивать или что у тебя там есть
Дано:
к=260
N=64 => i=6
Решение
I=k*i
I=260*6=1560 бит=195 байт
<span><em></em><em>Если a - это -10 :</em>
</span>var b,i,s:integer;
begin
s:=0;
read (b);
if (b>-10) then
begin
for i:=-10 to b do
begin
s:=s+i;
end;
end;
writeln (s);
end.
Var a,b,c,d,k,f,flag: integer;
begin
readln(a,b,c,d);
repeat
K:=k+1;
Case k of
1: f:=b;
2: f:=c;
3: f:=d;
end;
If a<f then flag:=flag+1
else flag:=0;
Until k=3;
If flag=3 then Writeln('yes')
else writeln('no');
readln;
end.
Const
n = 100;
var
i, k_max, max, neg_max: integer;
a: array[1..n] of integer;
begin
for i := 1 to n do
begin
a[i] := random(100) - 50;
write(a[i], ' ');
end;
writeln();
max := a[1];
k_max := 1;
neg_max := 0;
for i := 1 to n do
begin
if a[i] > max then begin
max := a[i];
k_max := 1;
end;
if a[i] = max then k_max := k_max + 1;
if (a[i] < 0) and (abs(a[i]) > abs(neg_max)) then
neg_max := a[i];
end;
writeln('Max: ', max, ' k=', k_max);
writeln('Positive: ', max);
writeln('Negative: ', neg_max);
end.