Склавиатуры поочередно вводятся целые числа. вычислите сумму положительных чисел. признаком конца ввода чисел является число 0.
Sharedes
1
24.08.2019 05:20
0 
Популярные вопросы
- Ширина прямоугольника 30см, и она в 2 раза меньше длины. найдите площадь...
3 - Составьте предложения по схемам,укажите значение придаточных 1)[ ],()...
3 - Что будет если удалить из крови соли кальция?...
2 - Счем связано выражение валтасаров пир...
3 - Укажите предложения с ошибкой в использовании деепричастного оборота...
1 - Выделите суффиксы у слов : курятник , молотьба, мотоциклист , тепленький,...
2 - Найди периметр триугольника со сторонами 2см8мм,3см4мм,1см7мм....
3 - 8,2 : 1/2 превратив первое число в дробь...
2 - Составьте предложения по схемам на тему...
1 - Какая связь между полным,активным и реактивным сопротивлениями цепи переменного...
3
A:integer;
S:real;
Begin
S:=0;
Repeat
Read(A);
if A>0 then S:=S+A;
Until A=0;
Write('S = ',S);
End.