Дано целое число.Если оно является положительным,то прибавить к нему 1,в противоположном случае вычесть из него 2.Вывести полученное число.
1-4 класс
|
var a: integer;
begin
read(a);
if a>=0 then a:= a+1
else a:= a-2;
write(a);
end.
var a :longint;
begin
readln(a);
If a>0 then a:=a+1 else a:=a-2;
writeln(a);
end.
Надо прогу написать ?
Другие вопросы из категории
Продолжите фразы:
а) Информация - это ................................................
б) Действия с информацией - это действие, связанные с...................................................
СРОЧНО. ПРОШУУУУУУ
Читайте также
Входные данные:
Во входном потоке заданы два целых ненулевых числа, значение которых по модулю не превышают 30000.
Выходные данные:
В выходной потов вывести единственное целое число.
Пример входного файла
3 9
интервале между двумя введёнными числами. Например, пользователь вводит числа 10 и 20, программа выводит «12 14 16 18», если -8 и -3, то «-6 –4». Если пользователь вводит, например, числа 6 и 8, программа ничего не выводит. Точно так же программа ничего не выводит, если введённые числа равны, или второе указанное число меньше первого.
найти значение a,
где a=i^3, если i кратно 5
a=i^2, если i кратно 2.
a=2*i+1 в остальных случаях.
модулями, а положительные оставить без изменения.(Надо написать программу на паскале)