сервис вопросов и ответовводится положительное число прекратить ввод когда сумма введёных чисел превысит 100
5-9 класс|
|
0770
03 марта 2015 г., 15:14:09 (9 лет назад)
Ericsson81
03 марта 2015 г., 15:55:07 (9 лет назад)
uses crt;
var ch,s:integer;
begin
s:=0;
while s < 101 do
begin
readln(ch);
if ch > 0 then
s:=s+ch;
end;
end.
Ответить
Другие вопросы из категории
Приведите все алгоритмы из трёх команд, которые переместят Робота из исходного положения в клетку Б.
Существует ли для этой задачи алгоритм, при выполнении которого Робот делает:а)два шага; б)четыре шага; в)пять шагов; г)семь шагов; д)2001 шаг; е)2006 шоаов?
Написать программу на паскале в которой введенное предложение будет разделяться на отдельные слова. Вводи A. разделяем предложения на слова присваивая
их к какой либо переменной
Помогите составить программу на языке паскаль абц:
Вычислите площадь круга и длину окружности по исходным данным.
Отец (О), мать (М) и два брата близнеца (Б1, Б2) должны переправиться через реку . В их распоряжении есть маленькая лодка, вмещающая только одного
взрослого или двоих детей. Взрослые и дети умеют грести.
Читайте также
Пожалуйста помогите решить задачу: Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и
оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
Пример работы программы:
Входные данные Выходные данные
14 168
24
144
22
12
0
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на
вход натуральные числа через клавиатуру, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4. Пояснение: цикл while x<>0 do с условием if (x mod 6=0) and (x mod 10=4)
напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех чисел кратных 7 и оканчивающихся на 0. Программа получает на
вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0- признак окончания ввода, не входит в последовательность), Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 0. Программу надо написать в Pascal
Дано целое число N и набор из N целых чисел. Найти минимальное положительное число из данного набора. Если положительные числа в наборе отсутсвуют, то
вывести 0.
С выводом минимального положительного числа у меня вроде бы получилось, а вот с проверкой на отрицательность не вышло
1)Составить программу нахождения суммы квадратов чисел от 25 до 125.
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
Вы находитесь на странице вопроса "водится положительное число прекратить ввод когда сумма введёных чисел превысит 100", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.