1)Найдите сумму натуральных нечетных чисел не превышающих n!!!!Это нужно сделать циклом for. 2) Составьте программу,которая производит суммирование произвольного количества целых чисел вводимых с клавиатуры.Концом последов...
1)Найдите сумму натуральных нечетных чисел не превышающих n!!!!Это нужно сделать циклом for. 2) Составьте программу,которая производит суммирование произвольного количества целых чисел вводимых с клавиатуры.Концом последовательности служит ввод отрицательного числа.Программу составьте двумя способами: использую цикл с предусловием и цикл с постусловием
Гость
Ответ(ы) на вопрос:
Гость1) var
n, i, s:integer;
begin
s := 0;
readln(n);
if n mod 2 = 0 then
n := n div 2 -1
else
n := n div 2;
for i := 0 to n do
begin
s := s + (1+2*i)
end;
write(s)
end. 2) var
a, s: integer;
begin
s := 0;
read(a);
while (a >= 0) do
begin
s := s + a;
read(a)
end;
writeln;
write(s)
end. var
a, s: integer;
begin
s := 0;
a := 0;
repeat
s := s + a;
read(a)
until a < 0;
writeln;
write(s)
end.
Не нашли ответ?
Похожие вопросы