Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
5-9 класс
|
(язык программирования паскаль)
Хамка
27 янв. 2015 г., 20:40:00 (9 лет назад)
Krisa30112004
27 янв. 2015 г., 22:07:06 (9 лет назад)
Program one;
var: a: real;
begin
Writeln ('Введите число');
readln (a);
If a<0 then else a:=a+1 else writeln (a)
end.
Вроде так
Ответить
Другие вопросы из категории
Читайте также
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. Задачку
нужно решить в рандоме!! ! :(
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. Люди прошу
помогите, пипец как надо!!!
*Дано* *целое* *число*. *Если* *оно* *является* *положительным*, *то* *прибавить* *к* *""нему* *1*; если отрицательным, *то* вычесть из *него* 2; если
нулевым, *то* ""заменить *его* на 10. Вывести полученное *число*.
Срочнооо
решите пожалуйста задачи на языке pascal abc net.
f3.
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
f5.
Даны три целых числа. Найти количество положительных и количество
отрицательных чисел в исходном наборе.
f15.
Даны три числа. Найти сумму двух наибольших из них.
Вы находитесь на странице вопроса "Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.