Question

PascalABC 9 класс ХЕЛП МЕ
Решить задания:

1. Запишите значение переменной S
a:= 1 ; s:=0;
while a< n do
begin
a:=a+1; s:=s+a; end;
writeln ('сумма' п, натуральных чисел равна s=",
s);
2. Запишите значение переменной
S:=0; J:=10;
WHILE J<>100 DO Begin s:=S+J; J:=J+1;
End;
3. Запишите значение переменной
S:=0;
i:=0;
while i<=6 do S:=S+i; i:=i+1;
writeln('S=", S);

Answer 1

1) 0.

2) 4905.

3) 21.