Программа на Кумире.
алг
нач
вещ х,у
ввод х
если х>0 то у:=х*2-4
иначе у:=2*х
все
вывод у
кон
На Паскале:
var x,y:integer;
begin
x:=-10;
if x>0 then
y:=x*2-4;
writeln(y);
end
else
if x<=0 then
y:=2*x;
end.
Программа на Кумире.
алг
нач
вещ х,у
ввод х
если х>0 то у:=х*2-4
иначе у:=2*х
все
вывод у
кон
На Паскале:
var x,y:integer;
begin
x:=-10;
if x>0 then
begin
y:=x*2-4;
writeln(y);
end
else
if x<=0 then
y:=2*x;
writeln(y);
end.