Найти сумму четных двухзначных чисел цикл с предусловием

Question

Информатика: Найти сумму четных двухзначных чисел цикл с предусловием

asdf43 · Answer

procedure summa(s, num: integer);begin    s:= s + num;end; var i, sum: integer; begin    sum:= 0;    for i:= 10 to 99 do if i mod 2 = 0 then summa(sum, i);    write(sum); end....

Найти сумму четных двухзначных чисел цикл с предусловием

Популярные вопросы