Дано целое число А. Если значение А = 0, то необходимо увеличить его ** 3, иначе...

Question

Дано целое число А. Если значение А = 0, то необходимо увеличить его на 3, иначе присвоить А значение, равное 0. Составьте на Паскале программу для решения этой задачи. Программа должна иметь дружественный интерфейс

Answer 1

Program p17;
var A:integer;
begin
readln (A);
if A=0 then A:=A+3 
else if A<>0 then A:=0;
writeln (A);
end.

Comments

Требовался дружественный интерфейс.