Информатика, опубликовано 2018-08-22 18:59:18 by Гость
Найти сумму пятнадцати нечетных чисел натурального ряда, начиная с N>0. N вводится с клавиатуры
Ответ оставил Гость
var
i, n: byte;
s: integer;
begin
readln(n);
for i := n to n + 15 * 2 - 1 do
if (i mod 2 = 1) then
s := s + i;
writeln(s);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.