Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
vladislav71
0 / 0 / 0
Регистрация: 13.03.2014
Сообщений: 17
1

В переменную а последовательно вводятся числа -9, 18, 2, 6, 7, 20, 11, -6. Найти сумму всех чисел до тех пор, пока не встретится 11

13.03.2014, 16:04. Просмотров 789. Ответов 3
Метки нет (Все метки)

Помогите написать программный код:
В переменную а последовательно вводятся числа -9, 18, 2, 6, 7, 20, 11, -6. Найти сумму всех
чисел до тех пор, пока не встретится 11.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2014, 16:04
Ответы с готовыми решениями:

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

Вводятся пары чисел (a;b) до тех пор, пока a не окажется равным 66. Вычислить сумму /а-b/
Вводятся пары чисел (a;b) до тех пор, пока a не окажется равным 66. Вычислить...

Вводятся пары чисел (a;b) до тех пор, пока а не окажется равным 66. Вычислить сумму /a-b/
Вводятся пары чисел (a;b) до тех пор, пока а не окажется равным 66. Вычислить...

Вводить произвольные числа до тех пор пока не будет введено число 555. Найти сумму и количество введенных чисел
Вообще у меня такая проблема, вот дано мне задание: "Вводить произвольные...

Вводить произвольные числа до тех пор пока не будет введено число 555. Найти сумму и количество введенных чисел
Задание такое: Составить алгоритм и программу для задания 3. Вот собственно...

3
SmartProgramist
12 / 12 / 13
Регистрация: 28.12.2013
Сообщений: 52
13.03.2014, 16:30 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
 Uses Crt;
  Var a:Array[1..8] of Integer;
      i,s:integer;
Begin  
  a[1]:=-9; a[2]:=18; a[3]:=2; a[4]:=6; a[5]:=7;
  a[6]:=20; a[7]:=11; a[8]:=-6; s:=0;
  For i:=1 to n do
    Begin
      s:=s+a[i];
      If s=11 Then Writeln('TRUE');
    End;
  Readln;  
End.
Добавлено через 1 минуту
Ошибку допустил... Вот исправил.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Uses Crt;
  Var a:Array[1..8] of Integer;
      i,s:integer;
Begin  
  a[1]:=-9; a[2]:=18; a[3]:=2; a[4]:=6; a[5]:=7;
  a[6]:=20; a[7]:=11; a[8]:=-6; s:=0;
  For i:=1 to n do
    Begin
      s:=s+a[i];
      If s=11 Then Begin Writeln('TRUE'); Break; End;
    End;
  Readln;  
End.
1
vladislav71
0 / 0 / 0
Регистрация: 13.03.2014
Сообщений: 17
13.03.2014, 16:33  [ТС] 3
Спасибо большое.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3897 / 2557 / 2082
Регистрация: 22.11.2013
Сообщений: 7,150
13.03.2014, 16:55 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
var s, n: integer;
begin
  Read(n);
  while n<>11 do begin
    sum:=sum+n;
    Read(n);
  end;
  WriteLn('SUM = ', sum);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2014, 16:55

17. Подсчитать произведение целых чисел, введенных с клавиатуры. Произведение подсчитывается до тех пор, пока вводятся числа от -10 до +10
17. Подсчитать произведение целых чисел, введенных с клавиатуры. Произведение...

Натуральные числа вводятся с клавиатуры до тех пор, пока не будет введено число «нуль»
1.. Дана срока, состоящая из букв и цифр, и строка из цифр и других знаков....

Вводить числа до тех пор, пока они положительные или не встретится 10 или 25
вводим числа пока они положительные или не встретится 10 или 25. помогите плиз!


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

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

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