Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 58
1

Создайте программу, которая вычисляет сумму всех четных чисел от 99 до 200

30.05.2012, 01:28. Просмотров 2087. Ответов 5
Метки нет (Все метки)

Создайте программу, которая вычисляет сумму всех четных чисел от 99 до 200.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2012, 01:28
Ответы с готовыми решениями:

Написать программу, которая вычисляет сумму всех четных чисел в диапазоне от 1 до n
Напишите программу которая вычисляет сумму всех четных чисел в диапазоне от 1 до n.

Написать программу ,которая вычисляет сумму первых n целых положительных четных чисел
Написать программу ,которая вычисляет сумму первых n целых положительных четных чисел.Количество...

Напишите программу, которая вычисляет сумму всех четырехзначных чисел кратных K
Помогите пожалуйста решить задачи в паскале буду очень благодарен имя входного файла-input.txt...

Дана строка целых чисел. Составить программу, которая вычисляет сумму первых цифр всех чисел данной строки
1. Дана строка целых чисел. Составить программу, которая вычисляет сумму первых цифр всех чисел...

5
7 / 18 / 12
Регистрация: 13.04.2012
Сообщений: 391
30.05.2012, 14:40 2
типа 100+102+104+106...+194+196+198+200 ?77
0
105 / 78 / 21
Регистрация: 16.04.2012
Сообщений: 215
30.05.2012, 14:54 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  Summa, i: integer;
begin
  Summa:=0;
  i:=99;
  while i <= 200 do
  begin
    if i mod 2 = 0 then
      inc(Summa, i);
    inc(i);
  end;
  writeln('Сумма: ', Summa);
end.
0
Фрилансер
3410 / 2807 / 3000
Регистрация: 08.02.2012
Сообщений: 7,925
Записей в блоге: 1
30.05.2012, 14:56 4
Pascal
1
2
3
4
5
6
7
Var i,s:integer;
Begin
    s:=0;
    For i:=99 to 200 do
     if i mod 2 = 0 then s:=s+i;
    writeln('Сумма=',s);
End.
0
153 / 95 / 101
Регистрация: 25.02.2012
Сообщений: 232
30.05.2012, 15:14 5
Pascal
1
2
3
4
5
6
var i, s: integer;
begin
  for i := 99 to 200 do
    if not(odd(i)) then inc(s, i);
  writeln('Сумма = ', s);
end.
0
Почетный модератор
7953 / 3924 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
30.05.2012, 17:45 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var s: integer;
    i: byte;
begin
s:=0; i:=100;
while i<=200 do
      begin
      s:=s+i; i:=i+2;
      end;
writeln(s);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2012, 17:45

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Написать программу которая вычисляет произведение всех целых чисел от a до b
Написать программу которая вычисляет произведение всех целых чисел от a до b (значения a и b...

написать программу которая вычисляет сумму и произведение N чисел
1) написать программу которая вычисляет сумму и произведение N чисел (N ввести с клавиатуры)...

Напишите программу которая вычисляет сумму первых n натуральных чисел
напишите программу которая вычисляет сумму: первых n натуральных чисел; квадратов первых n...

Написать программу, которая вычисляет сумму первых целых положительных чисел
Помоги, пожалуйста! Написать программу, которая вычисляет сумму первых целых положительных чисел....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.