В паскале нужно составить программу нахождения суммы чисел от 0 до 24 с шагом 3
В паскале нужно составить программу нахождения суммы чисел от 0 до 24 с шагом 3
Гость
Ответ(ы) на вопрос:
Гость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.
Гостьvar i,s:integer;
begin
for i:=1 to 24 do
if i mod 3 = 0 then s+=i;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы