Напишите программу решения задачи. даны веществ числа a.b .c .Определите будет ли их...

Question

Напишите программу решения задачи. даны веществ числа a.b
.c .Определите будет ли их сумма положительной

Answer 1

Var  a,b,c:integer;beginwriteln('Введите значение a: ');readln(a);writeln('Введите значение b: ');readln(b);writeln('Введите значение c: ');readln(c);if a+b+c>0 then writeln('Сумма чисел положительная')elsewriteln('Сумма чисел отрицательная');end.

Comments

var
a,b,c:integer;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
writeln('Введите значение c: ');
readln(c);
if a+b+c>0 then writeln('Сумма чисел положительная')
else
writeln('Сумма чисел отрицательная');
end.