• 1)
    var s;k: integer;
    begin
    s:=4;
    for k:=1 to 3 do
    s:=s+2*k;
    write (s);
    end
    2)
    var s;k;I: integer;
    begin
    s:=3;
    I:=3*s;
    for k:=3 to 9 do
    s:=s+I;
    write (s);
    end

Ответы 3

  • 2)66
  • 2)66
    • Автор:

      lady
    • 6 лет назад
    • 0
  • //1)var  s, k: integer;begin  s := 4;  for k := 1 to 3 do    s := s + 2 * k;  write(s);// s = 16end.//2var  s, k, I: integer;begin  s := 3;  I := 3 * s;  for k := 3 to 9 do    s := s + I;  write(s);// s = 66end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years