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

Евус1111 Евус1111    3   03.06.2019 22:50    0

Ответы
helena59365 helena59365  05.07.2020 06:28
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.
ПОКАЗАТЬ ОТВЕТЫ
тууутуууу тууутуууу  05.07.2020 06:28
Var i,s:integer;
begin
for i:=1 to 24 do
if i mod 3 = 0 then s+=i;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика