Написать программу на языке Паскаль. Даны три действительные числа. Сложить те из них, значения которых не отрицательны.
Answers & Comments
TaTaPmember
Program chisl; var a,b,c,d:integer; begin write('Введите a = ' ); readln(a); if a>=0 then d:=d+a; write('Введите b = ' ); readln(b); if b>=0 then d:=d+b; write('Введите c = ' ); readln(c); if c>=0 then d:=d+c; writeln(d); end.
3 votes Thanks 1
dimanzare
Например Введите a = 6 Введите b = 4 Введите c = -3 10 Сумма положительных чисел равна
TaTaPmember
program chisl; var a,b,c,d:integer; begin write('Введите a = ' ); readln(a); if a>=0 then d:=d+a; write('Введите b = ' ); readln(b); if b>=0 then d:=d+b; write('Введите c = ' ); readln(c); if c>=0 then d:=d+c; writeln(d); write('Сумма положительных чисел равна ',d) end.
dimanzare
и 10 стоит впереди предложения Сумма положительных чисел равна , а как сделать так чтобы было после предложения а потом число
TaTaPmember
program chisl; var a,b,c,d:integer; begin write('Введите a = ' ); readln(a); if a>=0 then d:=d+a; write('Введите b = ' ); readln(b); if b>=0 then d:=d+b; write('Введите c = ' ); readln(c); if c>=0 then d:=d+c; write('Сумма положительных чисел равна ') end.
TaTaPmember
program chisl; var a,b,c,d:integer; begin write('Введите a = ' ); readln(a); if a>=0 then d:=d+a; write('Введите b = ' ); readln(b); if b>=0 then d:=d+b; write('Введите c = ' ); readln(c); if c>=0 then d:=d+c; write('Сумма положительных чисел равна ',d) end.
Pashq4
Var a, b, c, rez: real; begin write('Введите число А: '); readln(a); write('Введите число B: '); readln(b); write('Введите число C: '); readln(c); if (a >= 0) and (b >= 0) and (c >= 0) then rez := a + b + c; if (a >= 0) and (b >= 0) then rez := a + b; if (a >= 0) and (c >= 0) then rez := a + c; if (b >= 0) and (c >= 0) then rez := b + c; if (a <= 0) and (b <= 0) then rez := c; if (b <= 0) and (c <= 0) then rez := a; if (a <= 0) and (c <= 0) then rez := b; if (a <= 0) and (b <= 0) and (c <= 0) then rez := 0; writeln(rez); end.
Answers & Comments
var a,b,c,d:integer;
begin
write('Введите a = ' );
readln(a);
if a>=0 then d:=d+a;
write('Введите b = ' );
readln(b);
if b>=0 then d:=d+b;
write('Введите c = ' );
readln(c);
if c>=0 then d:=d+c;
writeln(d);
end.
Введите b = 4
Введите c = -3
10
Сумма положительных чисел равна
var a,b,c,d:integer;
begin
write('Введите a = ' );
readln(a);
if a>=0 then d:=d+a;
write('Введите b = ' );
readln(b);
if b>=0 then d:=d+b;
write('Введите c = ' );
readln(c);
if c>=0 then d:=d+c;
writeln(d);
write('Сумма положительных чисел равна ',d)
end.
var a,b,c,d:integer;
begin
write('Введите a = ' );
readln(a);
if a>=0 then d:=d+a;
write('Введите b = ' );
readln(b);
if b>=0 then d:=d+b;
write('Введите c = ' );
readln(c);
if c>=0 then d:=d+c;
write('Сумма положительных чисел равна ')
end.
var a,b,c,d:integer;
begin
write('Введите a = ' );
readln(a);
if a>=0 then d:=d+a;
write('Введите b = ' );
readln(b);
if b>=0 then d:=d+b;
write('Введите c = ' );
readln(c);
if c>=0 then d:=d+c;
write('Сумма положительных чисел равна ',d)
end.
begin
write('Введите число А: ');
readln(a);
write('Введите число B: ');
readln(b);
write('Введите число C: ');
readln(c);
if (a >= 0) and (b >= 0) and (c >= 0) then rez := a + b + c;
if (a >= 0) and (b >= 0) then rez := a + b;
if (a >= 0) and (c >= 0) then rez := a + c;
if (b >= 0) and (c >= 0) then rez := b + c;
if (a <= 0) and (b <= 0) then rez := c;
if (b <= 0) and (c <= 0) then rez := a;
if (a <= 0) and (c <= 0) then rez := b;
if (a <= 0) and (b <= 0) and (c <= 0) then rez := 0;
writeln(rez);
end.
Громоздко, но, думаю, покатит