Задано число, проверить, если число положительное то его нужно удвоить, если число отрицательное уменьшить в 2 раза, иначе оставить без изменения.

223

429

Посмотреть ответы 3

Ответы на вопрос:

babka5

Информатика

4,7(75 оценок)

Var x: real; begin readln(x); if x> =0 then x: = writeln(x*2) else x: = writeln(x/2); end. второй вариант: var x: real; begin readln(x); if x> =0 then x: =x*2 else x: = x/2; writeln(x) end.

oslipak

Информатика

4,5(27 оценок)

Var x: real; begin readln(x); if x> 0 then x*=2 else if x< 0 then x/=2; writeln(x); end.

Ріo78

Информатика

4,4(62 оценок)

// pascalabc.net 3.3 const n=4; begin writeln('1 массив: '); var a: =matrrandom(n,n,-10,10); a.println(6); writeln('2 массив: '); var b: =matrrandom(n,n,-10,10); b.println(6); var c: =a.elementsbyrow.where(x-> x< 0)+b.elementsbyrow.where(x-> x< 0)+ a.elementsbyrow.where(x-> x=0)+b.elementsbyrow.where(x-> x=0)+ a.elementsbyrow.where(x-> x> 0)+b.elementsbyrow.where(x-> x> 0); c.println; end. пример: 1 массив: -6 -3 1 8 6 -3 -8 0 8 10 -3 -9 1 -9 -2 6 2 массив: -7 -1 -3 9 -2 -6 5 2 0 10 1 0 5 -2 5 5 -6 -3 -3 -8 -3 -9 -9 -2 -7 -1 -3 -2 -6 -2 0 0 0 1 8 6 8 10 1 6 9 5 2 10 1 5 5 5