tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу на
Написать программу на языке паскаль. дано целое число. если оно является положительным, то прибавьте к нему 1 : в противном случае не изменять его. вывести полученное число.
egubiev
2 29.06.2019 23:20
0
Ответы
Vartego
23.07.2020 18:32
Program N1;
var
a:integer;
begin
readln(a);
If (a>0) then writeln(a+1)
else writeln(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
GabriellaKiM
23.08.2019 14:20
Какие из перечисленных ниже устройств относятся к внешним? монитор, процессор, оперативная память, принтер, клавиатура, жёсткий диск, флэш-память, колонки...
rozettak
15.01.2021 11:37
Дан одновременно массив Запиши ответ чьи-то индексы элементов массива начинается с нуля ...
58584
30.06.2019 21:50
Составлена такая программа на языке pascal: var x, a, b: integer; begin repeat readln(x); until x 0; a: =0; b: =1; while x 0 do begin a: =a+1; b: =b*(x mod 10); x:...
Maowsk
30.06.2019 21:50
Написать программу сортировки имен и фамилий с++ то есть: программа должна открыть файл,считать из него фамилии,сортировать по алфавиту ,занести результат на экран...
yuliko13
30.06.2019 21:50
Определтите что будет напечатано в текстовом поле в результате выполнения алгоритма записанного на языке програмирования visual basik m=0 for j=1 to 9 m=m+7 next...
nastasttv00
05.10.2019 03:50
Написть алгоритм действий для рисования 1, 2,3,4,5 в чертежнике через ! 30...
LyVlAr
05.10.2019 03:50
Что делать, не могу понять что не так, пишет встречено writeln, а ожидалось ; pi = 3.14; h = hello ; var a, b: integer; name: string; begin writeln ( введите своё...
шпион223709
08.07.2019 00:00
Назовите предпосылки реформации в великом княжестве литовском...
Sergeyii
08.07.2019 00:00
Задайте специальный вопрос к слову headphones и ответьте на него we have hot headphones for the whole group...
Дарьялол1
08.07.2019 00:00
Найти периметр четырехугольника . две стороны имеют длину 30мм ,а две стороны 20мм вырази ответ в см....
Популярные вопросы
Образовать от слова ready существительное...
2
Реферат про івана франка на українскій...
3
Леонтьев написал: деятельность богаче истиннее чем предваряющее...
1
Сумма двух углов образовавшихся при пересечении двух прямых равна...
1
Впараллелограмме abcd ab=6 см, ad= 4 см. биссектрисы углов а и...
1
Предложите алгоритм составления электронной схемы атома элемента....
2
Выпишите номера признаков, характерных для данных животных. амеба...
3
Сделайте синтаксический разбор этого предложения: перед матушкой,...
2
Сократите дроби : 114/ 171 0,2432...
1
Установите соответствие тип климата – город: а) умеренный – нью-йорк...
1
var
a:integer;
begin
readln(a);
If (a>0) then writeln(a+1)
else writeln(a);
end.