CLS
S = 0
FOR i =
1 TO 100
S = S +
i
NEXT i
<span>PRINT
"S=", S
</span>
Зайти на сайт хостингер . или же через denver . Смотря для каких целей
Ответ:4
Т.к условие должно выполняться и (x>3) и (x<5)
4 подходит и туда и туда ,значит это правильный ответ .
Uses crt;
vara:array[1..20]of integer;
i,k:integer;
begin
for i:=1 to 20 do
a[i]:=random (20)-10;
for i:=1 to 20 do
write(a[i],' ')
;for i:=1 to 20 do begin
if (a[i]<0) and (a[i]>-5)then
k:=k+1;
end;
writeln;
writeln('кол-во отрицательных чисел больше -5=',k)
<span>end.</span>