tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано целое число а.
Дано целое число а. если значение а > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. написать программу для решения этой . протестировать программу для a=3, a=0, a=-12.
Россия111111111111
2 30.08.2019 22:20
2
Ответы
proulechka
09.09.2020 15:00
Program abc;
var a:real;
begin
readln (a);
if (a>0) then a:=a+1 else a:=a-1;
writeln (a);
readkey;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
klimsamgim923dushez
12.07.2019 07:00
Сложите числа, а затем проверьте результаты, выполнив соответствующие десятичные сложения: а) 10111012 и 11101112; д) 378 и 758; и) a16 и f16; б) 1011,1012 и 101,0112;...
Михаилович223
12.07.2019 07:00
Борсук миняет шерсть? : запасает корм на зиму накопычуе жир?...
masha007009
08.06.2019 15:40
Дан целочисленный массив а имеющий n элементов (n =100). найти сумму элементов массива а так же максимальный элемент. напишите код в c++...
nazarushka
08.06.2019 15:40
Дан одномерный массив j из n элементов ,значения которых находятся в диапазоне от -90 до 90 подсчитать кол-во положительных элементов .вывести на экран исходный массив...
xdxdxdxdxdxdx
27.11.2020 10:23
Найдите фрагменты в повести, в которых описывается обряд. Прочитайте выразительно.( стр. 109-113)2. . Что поют девушки и парубки? Колядки-рождественские песни, которые...
Нікіта1111
27.11.2020 10:23
Кесте ористеринде деректер типн аныктап жазындар...
dolback
27.11.2020 10:23
Выбери операции, соответствующие инструменту: Верных ответов: 2стиль границзаливка текстуройсплошная заливкатолщина контурацвет контура...
assikissa987614
27.11.2020 10:24
1. Что можно сделать с графического редактора Paint.Net? 2. В каком меню находятся основные команды для обработки изображений?3. Что ты понимаешь под коррекцией изображения?4....
DanilKrut11
27.06.2019 17:50
Аня завела себе учётную запись в новой социальной сети и придумала пароль, состоящий из букв алфавита. сначала аня записала его на бумажке, но потом подумала, что надо...
hobitmaksovtize
28.05.2019 19:00
Дано четырехзначное число. определить: какая цифра больше: вторая или последняя. сделать блок-схему и написать готовую программу....
Популярные вопросы
У МЕНЯ ВРЕМЯ 3:30 завтра английский , не могу написать монолог по этому...
2
1. У тюльпанов красный цвет лепестков неполно доминируют над белым....
2
визначити масу метану (CH4) об ємом 2,24 л за н.у. обчислити відносну...
2
A Circle the correct word or phrase. 1 I love this time in evening...
2
Может ктото знает как работать в программе MS SQL Server? Решаем следующие...
3
Решите задание по химии в прикреплённом файле...
2
Скільки протонів і нейтронів міститься в ядрах атомів нептунію 93237np...
3
Знос та амортизація основних фондів...
3
Найди сумму корней уравнения -2|х|+ 5|х|-3|х|+5|х|=0...
1
Выпишите смешные моменты из фильма: Иван Васильевич меняет профессфильма...
1
var a:real;
begin
readln (a);
if (a>0) then a:=a+1 else a:=a-1;
writeln (a);
readkey;
end.