Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
прпрпрп
0 / 0 / 0
Регистрация: 24.02.2016
Сообщений: 11
#1

Вводите числа с клавиатуры, пока не будет введен ноль. Посчитать количество и сумму чисел - Pascal ABC

02.03.2016, 15:15. Просмотров 652. Ответов 1
Метки нет (Все метки)

Вводите числа с клавиатуры, пока не будет введен ноль. Посчитать количество и сумму чисел.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.03.2016, 15:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вводите числа с клавиатуры, пока не будет введен ноль. Посчитать количество и сумму чисел (Pascal ABC):

С клавиатуры вводятся числа пока не будет введен 0 определить количество четных и нечетных
С клавиатуры вводятся числа пока не будет введен 0 определить количество четных...

Считывать данные с клавиатуры, пока не будет введен 0
Написать рекурсивную процедуру, которая считывает вводимые с клавиатуры числа...

Вводить с клавиатуры целые числа до тех пор, пока не будет введено число 0. На экран вывести количество введеных чисел
Вводить с клавиатуры целые числа до тех пор, пока не будет введено число 0. На...

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

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

Организовать ввод чисел в цикле до тех пор пока не будет введен нуль
Организовать ввод чисел в цикле до тех пор пока не будет введен нуль. Найти...

1
Peoples
1269 / 774 / 730
Регистрация: 06.02.2016
Сообщений: 2,081
Записей в блоге: 15
Завершенные тесты: 4
02.03.2016, 15:24 #2
Лучший ответ Сообщение было отмечено прпрпрп как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program pr;
var
x,sum,cout:integer;
begin
cout:=0;
repeat 
writeln('Введите число');
readln(x);
sum:=sum+x;
cout:=cout+1;
until x=0;
writeln('Количество чисел: ',cout-1);   // количество чисел без 0, если надо с 0,то просто cout  без  -1
writeln('Сумма: ',sum);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.03.2016, 15:24
Привет! Вот еще темы с решениями:

C клавиатуры вводятся числа пока не будет
C клавиатуры вводятся числа пока не будет введен 0 определить количество четных...

Считывать с клавиатуры числа до тех пор пока не будет введено два числа равных 1.
Программа должно считывать с клавиатуры числа до тех пор пока не будет введено...

Запрос пароля до тех пор, пока он не будет правильно введен
Составить программу на паскале, которая запрашивает пароль (например,...

Запрашивать пароль до тех пор, пока он не будет правильно введен.
Написать программу, которая запрашивает пароль (целое число) до тех пор, пока...


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

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

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