s = 220
Объяснение:
Сделал программу вычисляющую s.
var n,s: integer;
begin
n:= 40;
s:= 0;
while n<50 do begin
if (n<50) and (n mod 2 = 0) then s:=s+n;
n:=n+1
end;
writeln(s);
end.
s = 220
Объяснение:
Сделал программу вычисляющую s.
var n,s: integer;
begin
n:= 40;
s:= 0;
while n<50 do begin
if (n<50) and (n mod 2 = 0) then s:=s+n;
n:=n+1
end;
writeln(s);
end.