1 дано 2 числа а и б. Определить я вляются они положительными.
2 даны два числа а и б целые числа. Напечатать да если сумма >0

Ответ

Ответ дан

SpitefulSpamer

// PascalABC.NET

var

a, b: integer;

Begin

WriteLn('Введите два числа');

ReadLn(a, b);

if ((a > 0) and (b > 0)) then

WriteLn('Оба числа являются положительными')

else

WriteLn('Одно или несколько из введённых чисел не являются положительными');

End.

// PascalABC.NET

var

Sum, a, b: integer;

Begin

WriteLn('Введите два числа');

ReadLn(a, b);

Sum := a + b;

if (Sum > 0) then

WriteLn('Да');

End.

Нажми, чтобы рассказать другим, насколько ответ полезен

0 оценка

Оцени!