Ребят, помогите пожалуйста, информатика 9 класс

Ребят, помогите пожалуйста, информатика 9 класс

Задать свой вопрос
1 ответ
1)
var sum, m, k: integer;
begin

sum := 0;
m := -10;

for k:=1 to 20 do
begin

if m mod 2 = 0 then
sum := sum + m;

m = m + 1;
end;

end.

2)
var sum, m, k: integer;
begin

proizv := 1;
m := -10;

for k:=1 to 20 do
begin

proizv := proizv + m;
m = m + 1;

end;

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


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

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

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

Войти на сайт