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

KatyaDro KatyaDro    1   14.09.2019 03:30    6

Ответы
яннис1 яннис1  07.10.2020 13:18
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика