1 дано 2 числа а и б. Определить я вляются они положительными.
2 даны два числа а и б целые числа. Напечатать да если сумма >0
Ответы
Ответ дал:
0
// 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.
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад