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