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

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

10-11 класс

MrKyndays97 20 дек. 2013 г., 21:54:41 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
КсенияЛис
20 дек. 2013 г., 22:34:27 (10 лет назад)

var
    i : Integer;
begin

 

    Write('Введите целое число: ');
    Readln(i);

 

    if i >= 0 then inc(i);

 

    Writeln(i);


end.   

Ответить

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

Помогите написать прогу в паскале.

дано уравнение
фото внутри

Домашнее задание №1 Выполнить перевод а)З Гб =___ Мб; 6) 4,8 Мб= ___Кб, в) 567438 бита=____ Кб, г) О,09Гб= _______байтов, №2 Известно, что дом, в

котором живет ваш друг — восьмиэтажный.Какое количество информации несет сообщение о том, что он живёт наЗ этаже? №3. Информационный объем одной буквы 4 бита. Найти мощность алфавита. №4. Информационное общение объемом 1,5 Кбайт содержит 3072 символа. Сколько символов содержит алфавит, при помощи которого записано это сообщение?

Срочно! help me! помогите
вопрос по базам данных с вариантами ответа

добрый вечер, школьники, студенты, а также более старшие представители (очень хотелось бы прочитать мнение студентов-программистов, специалистов по базам данных).
помогите, пожалуйста, ответить на вопрос по базам данных

вопрос:
Какой проект даст алгоритм декомпозиции в НФБК отношения Apply(SSN,cName,state,date,major) с функциональными зависимостями cName → state и SSN,cName → date,major? *

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

Не сложно, но срочно.

Написать программу для Pascal.
Дано целое число, если оно является положительным, то прибавь к нему 5; в противном случае не изменять его. Вывести полученное число.



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