Создайте алгоритмы вычисления суммы, разности, произведения и частного двух четных чисел в среде КуМир.

Ответы

Ответ дал: kirill10203040
0

uses crt;

var

i,s1,s2:integer;

begin

for i:=1 to 100 do

begin

if i mod 2=0 then s1:=s1+i

Похожие вопросы