Tatianarogozina1306
?>

Решите ПАСКАЛЬ 1) Даны 2 числа. Если они имеют одинаковый знак (0 относим к положительным числам), найти их сумму, в противном случае произведение. 2) Даны 2 числа. Если число а лежит в диапазоне от 10 до 100, то найти произведение чисел a*b, иначе их частное a/b. Обработать исключительную ситуацию – деление на ноль. К задачам блок схему и программу.

Информатика

Ответы

AHO436

1.

var a,b:integer;

begin

 readln(a,b);

 if (a*b>0) or ((a*b=0) and (a+b>=0)) then

   writeln('a+b: ',a+b)

     else

       writeln('a*b: ',a*b);      

end.

2.

var a,b:integer;

begin

 readln(a,b);

 if (a>=10) and (a<=100) then

   writeln(a*b)

     else

       if b=0 then

         begin

           writeln('a/0.Error');

           exit;

         end

           else

             writeln(a/b);

end.


Решите ПАСКАЛЬ 1) Даны 2 числа. Если они имеют одинаковый знак (0 относим к положительным числам), н
Решите ПАСКАЛЬ 1) Даны 2 числа. Если они имеют одинаковый знак (0 относим к положительным числам), н

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Решите ПАСКАЛЬ 1) Даны 2 числа. Если они имеют одинаковый знак (0 относим к положительным числам), найти их сумму, в противном случае произведение. 2) Даны 2 числа. Если число а лежит в диапазоне от 10 до 100, то найти произведение чисел a*b, иначе их частное a/b. Обработать исключительную ситуацию – деление на ноль. К задачам блок схему и программу.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

silicon-films3375
Татьяна_Вологжин
maslprod
Petrushin482
kulttrop
Феофанов_Никита1067
m-illarionov
Tsibrova
gbg231940
nata27-73589
gladkihvv
osandulyak
oknacrow
nikiforovako76
zaseche99