Составить программу.Если число положительное то увеличте его в 2 раза , если число отрицательное то уменьшите его в 2 раза
Answers & Comments
LadyKiller1
Program task; var a:real; begin write('Введите число : '); read(a); if a>0 then writeln(a*2) else writeln(a/2); end.
0 votes Thanks 1
LazyBlue
А что делать с нулём? :D На паскале получится вроде что-то этого: Program: ... Var: a; integer; Begin readln(a); begin If a>0 then a:= a*2; else a:= a:2; end; writeln(a); End.
Answers & Comments
var a:real;
begin
write('Введите число : ');
read(a);
if a>0 then writeln(a*2)
else writeln(a/2);
end.
Program: ...
Var: a; integer;
Begin
readln(a);
begin
If a>0 then
a:= a*2;
else a:= a:2;
end;
writeln(a);
End.