<span>2581.15(5) = 2*5^3 + 5*5^2 + 8*5^1 + 1*5^0 + 1*5^(-1) + 5*5^(-2) </span>
Маска сети может иметь максимальный формат 255.255.255.255
Поэтому ответ на вопрос - 255
S, a - должны быть целочисленными, а не вещественными.
Var x,y:integer;
begin
x:=25;
y:=-20;
while x*y<0 do begin
x:=x-5;
y:=y+2
end;
writeln('x=',x,' y=',y);
end.
// x = 0
// y = -10
Ответ:
1.
program vlasov_loc;
var i, s: integer;
var a: array [1..7] of integer;
begin
for i:= 1 to 7 do readln(a[i]);
for i:= 1 to 7 do a[i]:= a[i] - 1;
for i:= 1 to 7 do writeln ('a[', i,'] = ', a[i]);
for i:= 1 to 7 do s:=s+a[i];
writeln ('Сумма элементов нового массива - ', s)
End.
Объяснение: