дано целое число. если оно является положительным, то прибавить к нему 1, в противном случае вычесть из него 2, вывести полученное число.
5-9 класс
|
var
b: integer;
begin
writeln('Введите целое число');
readln(b); //Вводим целое число
if b > 0 then writeln(b + 1) {Если число положительное, то печатаем это число + 1, иначе печатаем это число - 2}
else writeln(b - 2);
end.
Отмтеть решение, как лучшее, плиз.
Другие вопросы из категории
345 Кб = ... байт =... бит
12905600 бит = ... байт =... Кб
56,6 Мб = ... Кб = ...байт
... Мб=...Кб=34 789 000 000 байт
...Гб= ... Мб = 230 540 000 Кб
координатных осях, и "2", если точка не лежит на координатных осях.
Пример ввода:
6 0
Пример вывода:
1
Читайте также
(язык программирования паскаль)
нужно решить в рандоме!! ! :(
помогите, пипец как надо!!!
нулевым, *то* ""заменить *его* на 10. Вывести полученное *число*.
Срочнооо
f3.
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
f5.
Даны три целых числа. Найти количество положительных и количество
отрицательных чисел в исходном наборе.
f15.
Даны три числа. Найти сумму двух наибольших из них.