Дано целое число. если оно является положительным, то прибавить к нему 1; если отрицательное,то вычесть 2, если нулевым,то заменить его на 10. вывести полученное число. программа.
Program chislo; var i,p:integer; Begin Writeln('vvedite chislo'); Readln(i); if i<0 then p:=i-2 else if i=0 then p:=10 else p:=i+1; Writeln('p=',p); Readln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку