ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПО ИНФОРМАТИКЕ!Даю 25 баллов
Составить программу,которая определяет сколько слагаемых должно быть в сумме последовательности 2+4+6+8+.. и эта сумма оказалась больше заданного числа n. N>=0
Паскаль,8 класс!
Составить программу,которая определяет сколько слагаемых должно быть в сумме последовательности 2+4+6+8+.. и эта сумма оказалась больше заданного числа n. N>=0
Паскаль,8 класс!
More Questions From This User See All
Answers & Comments
var
i, c, s, n:integer;
Begin
write('Введите n: ');
readln(n);
s:= 0;
c:= 0;
write('Последовательность: ');
while i < n do begin
s:= s + i;
c:= c + 1;
i:= i + 2;
write(i, ' ');
end;
writeln;
writeln('Сумма последовательности: ', s);
writeln('Количество слагаемых: ', c);
END.