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