1 / 1 / 0
Регистрация: 21.10.2013
Сообщений: 51
1

Найти количество введенных чисел, когда их сумма превысила 100

17.02.2014, 12:31. Показов 1541. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите решить задачу 3 способами
1)счетчик (for to do)
2)предпроверка условия (while do)
3)постпроверка условия (repeat until)
С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.02.2014, 12:31
Ответы с готовыми решениями:

Найти количество введенных чисел, когда их сумма превысила 100.
С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда...

Найти количество введённых чисел, когда их сумма превысила 100
С клавиатуры вводятся числа и последовательно суммируются. Найти количество введённых чисел, когда...

Найти количество введенных чисел, когда их сумма превысила 100
Пожалуйста помогите найти решение. Клавиатуры вводятся числа и последовательно суммируются....

Найти количество введенных чисел, когда их сумма превысила 100
с клавиатуры вводятся числа и последовательно суммируются.найти количество введенных чисел, когда...

1
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
17.02.2014, 17:42 2
Лучший ответ Сообщение было отмечено Nurlan_300 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
var i,n, sum: integer;
 begin
  sum:=0;
  for i:= 1 to 100 do begin
    readln(n);
    sum:= sum+n;
    if sum>100 then break;
   end;
  end.
Pascal
1
2
3
4
5
6
7
8
var n, sum: integer;
 begin
  sum:=0;
  while sum<=100 do begin
    readln(n);
    sum:= sum+n;
   end;
  end.
Pascal
1
2
3
4
5
6
7
8
9
var n, sum: integer;
 begin
  sum:=0;
  repeat begin
    readln(n);
    sum:= sum+n;
   end;
  until sum>100;
 end.
Добавлено через 37 секунд
ой
извини
тебе же количество нужно

Добавлено через 4 минуты
Вот так правильней будет.
Pascal
1
2
3
4
5
6
7
8
9
10
11
var i,n, sum: integer;
 begin
  sum:=0;
  for i:= 1 to 100 do begin
    readln(n);
    sum:= sum+n;
    if sum>100 then break;
   end;
  writeln(i);
  readln;
 end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var i, n, sum: integer;
 begin
  sum:=0;
  i:=0;
  while sum<= 100 do begin
    readln(n);
    sum:= sum+n;
    i:= i+1;
   end;
  writeln(i);
  readln;
 end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var i, n, sum: integer;
 begin
  sum:=0;
  i:=0;
  repeat begin
    readln(n);
    sum:= sum+n;
    i:= i+1;
   end;
  until sum>100;
  writeln(i);
  readln;
 end.
1
17.02.2014, 17:42
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.02.2014, 17:42
Помогаю со студенческими работами здесь

Найти количество введенных чисел, когда их сумма превысила 100
2.с клавиатуры вводится числа и последовательно суммируются. Найти количество введенных чисел,...

С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100
Заранее спасибо!!

Циклический алгоритм: прекратить ввод, когда сумма введенных чисел превысит 100
Вводятся положительные числа. Прекратить ввод, когда сумма введенных чисел превысит 100. Помогите...

С клавиатуры вводятся действительные числа и последовательно суммируются. Когда их сумма превысит 150, найти сумму введенных чисел.
С клавиатуры вводятся действительные числа и последовательно суммируются. Когда их сумма превысит...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru