Написать программу в паскале: 1.удвоить заданное - вопрос №12486526 от margusqw 02.04.2020 00:59

Question

Информатика: Написать программу в паскале: 1.удвоить заданное число, если оно положительное, утроить его, если оно отрицательно, и увеличит его на 1, если оно равно нулю.

margusqw · Answer

Var a:real;beginreadln(a);if a 0 then a:=a*2;if a 0 then a:=a*3;if a=0 then a:=a+1;writeln(a)end....