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

radvika08 radvika08    3   18.04.2020 10:41    1

Ответы
софийка34 софийка34  13.10.2020 11:12

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика