Знайти суму всіх натуральних парних чисел від 0 до N. паскаль
10-11 класс
|
Program NaturalDigits;
Var a, i, N: Integer;
Begin
Write('N = ');
ReadLn(N);
a := 0;
For i := 0 To N Do
If i Mod 2 = 0 Then
a := a + i;
WriteLn('Сумма всех чётных чисел от 0 до ', N, ' равна ', a);
ReadLn;
End.
var i, sum, n: integer;
Begin
Read(n);
for i := 0 to n do
if (i mod 2 =0) then sum := sum +i;
writeln(sum);
End.
Это должна быть программа?
var i,n,s:integer;
begin
readln(n);
if n mod 2 > 0 then n:=n-1;
s:=0;
while n>0 do
begin
n:=n-2;
s:=s+n:
end;
writeln(n);
readln;
end.
Другие вопросы из категории
1) 0
2) 2
3) 4
4) 8
5) 16
Читайте также
суммирование произвольного количества целых чисел вводимых с клавиатуры.Концом последовательности служит ввод отрицательного числа.Программу составьте двумя способами: использую цикл с предусловием и цикл с постусловием
Дано масив А[1..n]. Скласти програму підрахунку суми всіх елементів, що знаходяться між елементами А[1] і А[n].
сгенерируйте натуральное число в интервале от 100 до 900. Найдите трехзначное
число, состав ленное из тех же цифр, но записанных в обратном порядке.
Прграмма для выполнения Microsoft visual studio C++