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

Question

Информатика

Марися

8 октября, 17:00

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

+3

Ответы (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.