написать программку вычисления суммы всех четных чисел в диапазоне от 1

Написать программку вычисления суммы всех четных чисел в диапазоне от 1 до n (ИСПОЛЬЗУЯ REPEAT)

Задать свой вопрос
1 ответ

program repeater;

var n,s,i:Integer;

begin

n := 10;

s := 0;

i := 0;

repeat

   s := s + i;

   i := i + 2;

until i gt; n;

writeln(s);

end.

Мжачик Настя
Бро спасибо
Стефания
Все работает
Валерий Зверав
добавь менгя в вк misha__li
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт