в паскале нужно составить программу нахождения суммы чисел от 0 до 24 с шагом 3

Question

Арюха

29 мая, 17:53

+1

Ответы (2)

Знаете ответ?

Витана · Answer 1

Var i, s:integer;

begin

for i:=1 to 24 do

if i mod 3 = 0 then s+=i;

writeln (s) ;

end.

Витольд · Answer 2

Uses crt;

var i, k, n. Sum:integer;

begin

read (n) ;

sum:=0;

k:=0;

for i:=0 to n do

begin

k:=3;

Sum:=Sum+i;

end;

writeln (sum) ;

end.