1) Найдите сумму натуральных нечетных чисел не превышающих n!

Question

1) Найдите сумму натуральных нечетных чисел не превышающих n! Это нужно сделать циклом for. 2) Составьте программу, которая производитсуммирование произвольного количества целых чисел вводимых с клавиатуры. Концом последовательности служит ввод отрицательного числа. Программу составьте двумя способами: использую цикл с предусловием и цикл с постусловием

Answer 1

37

belle59

13 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: