Напишите фрагмент програмы (паскаль) для решения - вопрос №273056 от jelyrotos 16.11.2020 17:11

Question

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

jelyrotos · 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