Напишите программу, которая вводила бы целые числа и суммировала их до тех пор, пока пользователь не ввел число 0
10-11 класс
|
Var
a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln('Сумма чисел: ',s);
end
Другие вопросы из категории
время будет по каналу передан текст, информационный объём которого составляет 100 килобайтов.
полученной части последовательности.
Читайте также
Использовать цикл с предусловием.
На обычном паскале, не турбо.
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.
256. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.