Задать вопрос Регистрация
Помочь другим

  • Помогите
    var k,s :integer;
    begin
    s:=0
    k:=0
    while k <30 do begin
    k:=k+3;
    s:=s+k;
    end;
    write(s);
    end.

Ответы 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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