Написать фрагмент программы, подсчитывающий сумму только положительных из трех данных чисел.
Ответы на вопрос
Ответил Igorrock
3
If (a>0) or (a=0) Then s:=s+a;
If (b>0) or (b=0) Then s:=s+b;
If (c>0) or (c=0) Then s:=s+c;
or-логическое "или"
If (b>0) or (b=0) Then s:=s+b;
If (c>0) or (c=0) Then s:=s+c;
or-логическое "или"
Ответил alexooooon
7
var a,b,c:real;
begin
readln(a,b,c);
if (b>0) and (a > 0) and (c > 0)
then write((c+a+b):0:0);
if (b>0) and (a>0) and (c<0)
then write((a+b):0:0);
if (b>0) and (a<0) and (c>0)
then write((b+c):0:0);
if (b<0) and (a>0) and (c>0)
then write((a+c):0:0)
end.
begin
readln(a,b,c);
if (b>0) and (a > 0) and (c > 0)
then write((c+a+b):0:0);
if (b>0) and (a>0) and (c<0)
then write((a+b):0:0);
if (b>0) and (a<0) and (c>0)
then write((b+c):0:0);
if (b<0) and (a>0) and (c>0)
then write((a+c):0:0)
end.
Igorrock:
у меня кароче
я рад
и просили только фрагмент
хорошо
Новые вопросы