Напишите фрагмент програмы (паскаль) для решения - вопрос №272656 от Ромчик15 18.06.2021 09:23

Question

Информатика: Напишите фрагмент програмы (паскаль) для решения : вычислить сумму чисел от 3 до 9, кратных 4. у меня получается сделать только какие числа принадлежат промежутку, а сумму не могу

Ромчик15 · Answer

Фигня!

var

begin

for i := 3 to 9 do

begin

if (i mod 4 = 0) then

begin

s := s + i;

end;

writeln('сумма равна ',s);

end.

Если что-то непонятно пиши в вк /pifi_fc