СРОЧНООО Чему равно значение переменной s
1. Var s,k: integer;
Begin
s:=1;
for k:=1 to 11 do
s:=s+12;
write(s);
end.
2. Чему равно значение переменной s
Var s,k: integer;
Begin
s := 0;
for k := 14 to 18 do
s := s+8;
writeln(s);
End.3. Чему равно значение переменной s
Var s, k: integer;
Begin
s := 0;
for k := 1 to 3 do
s := s + k; s := s *10;
writeln (s);
end.
4. Чему равно значение переменной у?
y := 1;
i := 1;
While i > 1 do begin
y := y + 1/i;
i := i - 1;
end;
5. Чему равно значение переменной у?
y := 0;
i := 3;
repeat
i := 2*i;
y := y + i;
until i>5;