сервис вопросов и ответовДано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. Люди прошу
5-9 класс|
|
помогите, пипец как надо!!!
Klevtsov1996
15 апр. 2014 г., 13:22:05 (10 лет назад)
Dias199911
15 апр. 2014 г., 14:18:55 (10 лет назад)
var a:integer;
begin
readln (a);
if (a>0) then
begin
a:=a+1;
writeln (a);
end
else
writeln (a);
end.
игорь68
15 апр. 2014 г., 16:35:25 (10 лет назад)
var
a: integer;
begin
readln(a);
if (a > 0) then
a := a + 1;
writeln(a);
end.
Ответить
Другие вопросы из категории
оцените информационный объем в килобайтах моноаудиофайла длительностью звучания 20 с, если глубина кодирования и частота дискретизации звукового сигнала
равны соответствено 8 бит и 8 кГц.
Ответ очень нужно срочно буду очень благодарна:*
1. Какими значками египтяне изображали слова " солнце", "идти", "хлеб", " рот"? 2.Сколько всего былоиероглифоф в египетском письме? 3.Как египтяне
перешли от изображения значком целого слова к изображению значком отдельного звука?
1.Массив вводится с клавиатуры как округленные до целого числа градусов температуры в каждый день апреля. Нужно вывести на экран максимум температуры во
второй половине месяца (с 15 месяца). Задачу решить оптимально,т.е. за минимально возможное время выполнения
2.Измените первую программу из задания 1 так,чтобы она выводила все дни в апреле,когда максимальная температура приходилась на четную дату
3.Измените программу из задания 2 так,чтобы она выводила количество дней в апреле,когда максимальная температура приходилась на четную дату
Читайте также
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
(язык программирования паскаль)
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. Задачку
нужно решить в рандоме!! ! :(
*Дано* *целое* *число*. *Если* *оно* *является* *положительным*, *то* *прибавить* *к* *""нему* *1*; если отрицательным, *то* вычесть из *него* 2; если
нулевым, *то* ""заменить *его* на 10. Вывести полученное *число*.
Срочнооо
решите пожалуйста задачи на языке pascal abc net.
f3.
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
f5.
Даны три целых числа. Найти количество положительных и количество
отрицательных чисел в исходном наборе.
f15.
Даны три числа. Найти сумму двух наибольших из них.
Вы находитесь на странице вопроса "Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. Люди прошу", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.