Дополнить программу, чтобы она нашла сумму четных, - вопрос №90911353 от zangeevdima 02.09.2021 00:30

Question

Информатика: Дополнить программу, чтобы она нашла сумму четных, сумму кратных 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);

zangeevdima · Answer

Var r, t, n,sum, sumk: real; I:integer; beginN:=0; r:=0; T:=0; for I:=50 to 100 do beginwrite(I: 3); N:=n+1; if I mod 2=0 then sum:=sum+i;if I mod 3=0 then sumk:=sumk+i; end;writeln;write ( четные , sum:4, кратные 3 , sumk:4, sum  - sumk , (sum  - sumk):4);end....