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); ......

Answer 1

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.

Answer 2

Конечный код программы для выполнения указанных задач может выглядеть следующим образом:

Program tr; Var c, t, n: real; I: integer; even_sum, multiple_3_sum, difference: integer; sum_divisible_by_2_and_3: integer; Begin n:=0; c:=0; t:=0; even_sum:=0; multiple_3_sum:=0; difference:=0; sum_divisible_by_2_and_3:=0;

For I:=50 to 100 do Begin Write (I:3); n:=n+1; If I mod 2=0 then begin c:=c+1; even_sum:=even_sum+I; if I mod 3=0 then sum_divisible_by_2_and_3:=sum_divisible_by_2_and_3+I; end else if I mod 3=0 then begin t:=t+1; multiple_3_sum:=multiple_3_sum+I; sum_divisible_by_2_and_3:=sum_divisible_by_2_and_3+I; end; End;

difference := even_sum - multiple_3_sum;

WriteLn ('Всего:', n:4, ' Четные:', c:4, ' Кратные 3:', t:4); WriteLn ('Сумма четных чисел:', even_sum); WriteLn ('Сумма чисел, кратных 3:', multiple_3_sum); WriteLn ('Разница между суммой четных и кратных 3:', difference); WriteLn ('Сумма чисел, которые делятся на 2 и на 3:', sum_divisible_by_2_and_3);

End.

Эта программа сначала выполняет исходный цикл for для поиска количества четных чисел и чисел, кратных 3, а также для вывода чисел на экран.

Затем программа вычисляет сумму четных чисел и сумму чисел, кратных 3, используя отдельные переменные even_sum и multiple_3_sum соответственно.

Затем программа вычисляет разницу между суммой четных чисел и суммой чисел, кратных 3, и сохраняет ее в переменной difference.

Наконец, программа вычисляет сумму чисел, которые делятся на 2 и на 3, используя переменную sum_divisible_by_2_and_3, и выводит все результаты на экран.