Статистика
Всего в нашей базе более 4 324 614 вопросов и 6 440 156 ответов!

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

10-11 класс

Чизаро 12 июля 2014 г., 3:13:57 (4 года назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Poltavtseva1202
12 июля 2014 г., 5:23:35 (4 года назад)

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.

+ 0 -
KInDeRmAsTeR
12 июля 2014 г., 6:32:00 (4 года назад)

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.

+ 0 -
лисичкасистричка
12 июля 2014 г., 8:32:43 (4 года назад)

Это должна быть программа?

+ 0 -
AlexanderAliev
12 июля 2014 г., 11:17:42 (4 года назад)

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:

+ 0 -
Creative7Team
12 июля 2014 г., 12:53:32 (4 года назад)

end;
writeln(n);
readln;
end.

Ответить

Другие вопросы из категории

Читайте также

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

суммирование произвольного количества целых чисел вводимых с клавиатуры.Концом последовательности служит ввод отрицательного числа.Программу составьте двумя способами: использую цикл с предусловием и цикл с постусловием

Помогите пожалуйста. Нужно решить в паскале.

Дано масив А[1..n]. Скласти програму підрахунку суми всіх елементів, що знаходяться між елементами А[1] і А[n].

Датчиком случайных чисел

сгенерируйте натуральное число в интервале от 100 до 900. Найдите трехзначное
число, состав ленное из тех же цифр, но записанных в обратном порядке.
Прграмма для выполнения Microsoft visual studio C++



Вы находитесь на странице вопроса "Знайти суму всіх натуральних парних чисел від 0 до N. паскаль", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.