Знайти суму всіх натуральних парних чисел від 0 до N. Паскаль

Question

97

Знайти суму всіх натуральних парних чисел від 0 до N. Паскаль

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

aleks83 · Accepted Answer

78

aleks83

26 марта 2023

Program NaturalDigits; Var a, i, N: Integer; BeginWrite ('N='); ReadLn (N); a: =0; For i: =0 To N DoIf i Mod 2=0 Thena: =a+i; WriteLn ('Сумма всех четных чисел от 0 до ', N, ' равна ', a); ReadLn; End.

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

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

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

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