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

2

Ответы и объяснения

  • MiDiQ
  • середнячок
2014-03-18T22:01:51+04:00
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.

2014-03-18T22:23:37+04:00
Var i,s:integer;
begin
for i:=1 to 24 do
if i mod 3 = 0 then s+=i;
writeln(s);
end.