Даны числа a и b. Если оба отрицательные, то возвести каждое в квадрат иначе, увеличить на 100.

P. S. программа Pascal

Question

Информатика

Ларуня

29 октября, 04:19

Даны числа a и b. Если оба отрицательные, то возвести каждое в квадрат иначе, увеличить на 100.

P. S. программа Pascal

+4

Ответы (1)

Знаете ответ?

Леруся · Answer 1

Var a, b:real; Begin readln (a, b) ; If (a<0) and (b<0) then begin a:=sqr (a) ; b:=sqr (b) ; writeln (a,' ', b) ; end; else begin a:=100*a; b:=100*b; writeln (a,' ', b) ; end; end.

Даны числа a и b. Если оба отрицательные, то возвести каждое в квадрат иначе, увеличить на 100.P. S. программа Pascal

Даны числа a и b. Если оба отрицательные, то возвести каждое в квадрат иначе, увеличить на 100.

P. S. программа Pascal