Вопрос пользователя:
1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Илюха отвечает:
1)
s := 0;
for i := 1 to k do
begin
if i mod 2 <> 0 then
s:= s + i;
end;
2)
for i := 5 to 55 do
begin
if i mod 2 <> 0 then
writeln(i);
end;
3)
s := 1;
for i := n to m do
begin
s:= s * i;
end;
4)
s := 0;
for i := 10 to 15 do
begin
s:= s + i;
end;
обрамления там везде одинаковые