Program numberphile;
var x:integer;
begin
read(x);
if x>0 then
x:=x-8 else if x<>0 then
x:=x+6;
if x=0 then
x:=10;
writeln (x)
end.
Объяснение:
Язык Pascal ABCNet
Program numberphile;
var x:integer;
begin
read(x);
if x>0 then
x:=x-8 else if x<>0 then
x:=x+6;
if x=0 then
x:=10;
writeln (x)
end.
Объяснение:
Язык Pascal ABCNet