Дополнить программу, чтобы она нашла сумму четных, сумму кратных 3, разницу между этими суммами. найти сумму чисел, которые делятся на 2 и те же числа, которые делятся на 3. начало программы program tr; var c, t, n: real; i: integer; begin n: =0; c: =0; t: =0; for i: =50 to 100 do begin write (i: 3); n: =n+1; if i mod 2=0 then c: =c+1; l if i mod 3=0 then t: =t+1; end; write (‘всего’, n: 4, ‘четное’, с: 4, ‘кратные3’, t: 4);

Элечка5556    2   24.09.2019 18:01    0