Peri
4 год назад
Ребят, Пожалуйста посчитайте пожалуйста, информатика 9 класс
ОТВЕТЫ
Anne Marjatta
Oct 24, 2020
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.
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.
420
Смежные вопросы:
