Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Дано целое число. Если оно является положительным. То прибавить к нему 1; если же отрицательным то вычесть 2

5-9 класс

Вывести полученное число

Anyakotobogda 26 июля 2013 г., 1:58:00 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Linycik
26 июля 2013 г., 2:38:28 (10 лет назад)

Program chisla;
Uses Crt;
Var a:integer;
Begin;
Writeln ('Введите любое целое число');
Readln a;
If a>0 then a:=a+1 else a:=a-2;
Writeln ('a=',a);
End

+ 0 -
Nikitabolotov
26 июля 2013 г., 3:08:44 (10 лет назад)

var
  a: integer;

begin;
  Read(a);
  if a > 0 then
    a := a + 1
  else
    a := a - 2;
  Writeln('a = ', a);
end.

Ответить

Другие вопросы из категории

Задача 1. При угадывании целого числа в некотором диапазоне было получено 6 бит информации. Сколько чисел содержит этот диапазон?

Задача 2. Сообщение о том, что ваш друг живет на 10 этаже, несет 4 бита информации. Сколько этажей в доме?
Задача 3. Сообщение о том, что Петя живет во втором подъезде, несет 3 бита информации. Сколько подъездов в доме?

Читайте также

решите пожалуйста задачи на языке pascal abc net.

f3.
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
f5.
Даны три целых числа. Найти количество положительных и количество
отрицательных чисел в исходном наборе.
f15.
Даны три числа. Найти сумму двух наибольших из них.



Вы находитесь на странице вопроса "Дано целое число. Если оно является положительным. То прибавить к нему 1; если же отрицательным то вычесть 2", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.