Задано число, проверить, если число положительное то его нужно удвоить, если число...

0 голосов
130 просмотров
Задано число, проверить,
если число положительное то его нужно удвоить, если число отрицательное
уменьшить в 2 раза, иначе оставить без изменения.

Информатика (538 баллов) | 130 просмотров
0

Какой язык?

0

Тебе только алгоритм или саму программу?

0

Antoshqa, щас в школах только Паскаль, только хардкор!!

0

и тд и тп

0

мне через var x: real;

Дано ответов: 2
0 голосов
Правильный ответ

Var x: real;
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
end. 

Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end. 

(74 баллов)
0

аааа понял

0

а в чем разница

0

спс

0 голосов

Var x: real;
begin
readln(x);
if x>0 then x*=2 else if x<0 then x/=2;<br>writeln(x);
end.

(1.1k баллов)
0

И если ввести ноль в твоей программе, выдаст ошибку, так как ничего не будет выполняться

0

спс

0

Не вижу смысла в дальнейшем диалоге, всего хорошего

0

По поводу нуля. writeln(x) выполняется без всяких проверок, так что именно нуль и будет выведен.

0

Полагаешь? Скопируй мой код и проверь. Перед тем, как спорить, прочитай документацию по языку. Одиночные условия скобками отождествлять не обязательно. Условия в условиях у меня нет - оператор else if не является вложенным.

0

Во-первых если условие в условии, то логические скобки нужны. Во-вторых неправильно дано уравнение. В-третьих неправильно задано условие. Короче бред написан)

0

Конкретнее?

0

Псс у тебя ошибка

0

Если был введен 0, то ни одно из условий не выполнится и 0 останется 0.

0

оно и не положительное и не отрицательное