сервис вопросов и ответов*Дано* *целое* *число*. *Если* *оно* *является* *положительным*, *то* *прибавить* *к* *""нему* *1*; если отрицательным, *то* вычесть из *него* 2; если
5-9 класс|
|
нулевым, *то* ""заменить *его* на 10. Вывести полученное *число*.
Срочнооо
Dentejk
08 июня 2014 г., 16:15:58 (9 лет назад)
Mona
08 июня 2014 г., 17:52:06 (9 лет назад)
var n : integer;
begin
read(n);
if n = 0 then
write('10') else
if n > 0 then
write(n+1) else
if n < 0 then
write(n-2);
end.
Dolley
03 июля 2016 г., 5:33:38 (7 лет назад)
Your post has moved the debate fodwrar. Thanks for sharing!
Ally
04 июля 2016 г., 15:05:07 (7 лет назад)
This is way more helpful than anyhting else I've looked at.
Musaevalara
08 июня 2014 г., 19:12:18 (9 лет назад)
program sa;
uses crt;
var x:integer;
begin
clrscr;
readln(x);
if x>0 then x:=x+1;
if x<0 then x:=x-2;
if x=0 then x:=10;
writeln(x);
readln;
end.
Ответить
Другие вопросы из категории
разгадайте кроссворд "Хранение информации"
1) 1 прибор для записи и воспроизведения звука.
Читайте также
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
(язык программирования паскаль)
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. Задачку
нужно решить в рандоме!! ! :(
решите пожалуйста задачи на языке pascal abc net.
f3.
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
f5.
Даны три целых числа. Найти количество положительных и количество
отрицательных чисел в исходном наборе.
f15.
Даны три числа. Найти сумму двух наибольших из них.
Вы находитесь на странице вопроса "*Дано* *целое* *число*. *Если* *оно* *является* *положительным*, *то* *прибавить* *к* *""нему* *1*; если отрицательным, *то* вычесть из *него* 2; если", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.