Помогите, пожалуйста! Дополнить программу, чтобы она нашла сумму четных, сумму кратных 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);
......
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Copyright © 2024 SCHOLAR.TIPS - All rights reserved.