Pascal ABC. Дано целое число. Если оно положительное, то удвоить его; если отрицательное, то вычесть из него 2; если нулевое, то заменить его на 10. Вывести полученное число .
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад