Pascal abc. дано целое число. если оно положительное, - вопрос №8422906 от 0Alis11 30.01.2022 17:00

Question

Информатика: Pascal abc. дано целое число. если оно положительное, то удвоить его; если отрицательное, то вычесть из него 2; если нулевое, то заменить его на 10. вывести полученное число .

0Alis11 · Answer

Var a:integer;beginread(a);if a 0 then a:=a*2;if a 0 then a:=a-2;if a=0 then a:=10;write(a);end....