Составьте программку вычисляющую сумму S=2+4+6...+20В Pascal, пожалуйста

Составьте программу вычисляющую сумму S=2+4+6...+20
В Pascal, пожалуйста

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

program summa;

var

 s, i: integer;

begin

 for i := 2 to 20 do

   if i mod 2 = 0 then

     S := S + i;

 writeln('Сумма = ',s);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт