Помогите, пожалуйста! Дополнить программу, чтобы она нашла сумму четных, сумму кратных 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);
......
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);
......
More Questions From This User See All