Даны числа a и b. Если оба отрицательные, то возвести каждое в квадрат иначе, увеличить на 100.
P.S. программа Pascal
Var a, b:real;Beginreadln (a,b);If (a<0) and (b<0) then begina:=sqr(a); b:=sqr(b);writeln (a, ,b);end;elsebegina:=100*a; b:=100*b;writeln (a, ,b);end;end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
