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

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

Question

Информатика

Евфимия

3 февраля, 05:10

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

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

+3

Ответы (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