Найти сумму трех положительных вводимых с клавиатуры чисел.
(Программа паскаль)
Пример входных данных \ Пример выходных данных
2 8 -3 \ 10
-2 8 -3 \ 8
2 8 3 \ 13
(Программа паскаль)
Пример входных данных \ Пример выходных данных
2 8 -3 \ 10
-2 8 -3 \ 8
2 8 3 \ 13
Answers & Comments
Ответ:
150/160/170
Объяснение:
Var a, b, c: real;
begin
Write(‘введите числа>>’);
readln(a,b,c);
If a<0 then
If b<0 then
If c<0 then
Write(‘0’)
else
Write(c)
Else
If c<0 then
Write (b)
Else
Write(c+b)
Else if b<0 then
If c<0 then
write (a)
Else
Write(a+c)
Else
If c<0 then
Write(a+b)
Else
write(a+b+c);
End.