1
Даны два числа если они положительные , то сложить их,
иначе перемножить. Нужно написать на паскаль.

Question

Информатика: 1 Даны два числа если они положительные , то сложить их, иначе перемножить. Нужно написать на паскаль.

KseniaEnrrgy · Answer

program nen;

var

a,b :real;

begin

readln(a,b);

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

write('Сумма чисел равна ', a + b)

else

writeln('Произведение чисел равно ', a *b);

end.