Question

помогите с программой в Паскаль)
1. Пользователю необходимо ввести два числа. Если сумма этих чисел положительная, найти произведение, в противном случае, найти частное этих чисел. В каждом случае программа комментирует свои действия.
2. Пользователь вводит число (свою температуру). Если оно больше 36,8 или меньше 36,4, то программа пишет «Оставайся дома». В противном случае пишет «иди в школу».

Answer 1

Ответ:

program n1;

var q,w:integer;

begin

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

readln(q);

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

readln(w);

if q+w>0 then begin

    writeln('сумма чисел больше нуля');            

         write(q*w);              

             end

   

else begin

      writeln('сумма чисел меньше нуля');  

    write(q/w)

    end;

   

 

end.

Объяснение: