Даны два числа. Если оба числа положительные, то найти их сумму, иначе вывести сообщение "условие не выполняется".

Question

Информатика

Генюля

25 мая, 19:08

Даны два числа. Если оба числа положительные, то найти их сумму, иначе вывести сообщение "условие не выполняется".

+4

Ответы (1)

Знаете ответ?

Серафим · Answer 1

Var

a, b, c: integer;

Begin

writeln ('введите первое число') ;

read (a) ;

writeln ('введите второе чмсло') ;

read (b) ;

if a and b>0 then

c: = a+b;

writeln (' сумма чисел ', c) ;

else writeln (' условие не выполняется') ;

end.