Предмет: Информатика,
автор: Богзнаний2002
Составить программу.Если число положительное то увеличте его в 2 раза , если число отрицательное то уменьшите его в 2 раза
Ответы
Автор ответа:
0
program task;
var a:real;
begin
write('Введите число : ');
read(a);
if a>0 then writeln(a*2)
else writeln(a/2);
end.
var a:real;
begin
write('Введите число : ');
read(a);
if a>0 then writeln(a*2)
else writeln(a/2);
end.
Приложения:
Автор ответа:
0
А что делать с нулём? :D На паскале получится вроде что-то этого:
Program: ...
Var: a; integer;
Begin
readln(a);
begin
If a>0 then
a:= a*2;
else a:= a:2;
end;
writeln(a);
End.
Program: ...
Var: a; integer;
Begin
readln(a);
begin
If a>0 then
a:= a*2;
else a:= a:2;
end;
writeln(a);
End.
Приложения:
Похожие вопросы
Предмет: Информатика,
автор: Vera121200000
Предмет: Литература,
автор: bubblekvas1
Предмет: Українська мова,
автор: spigarev19
Предмет: Математика,
автор: Florida15
Предмет: География,
автор: 2641serg