tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить программу, которая в
Составить программу, которая в ответ на запрос о введении числа прибавляет к нему 1, если оно меньше 100 и вычитает 1, в противном случае. 9 класс
starkoviv23
3 24.08.2019 04:30
0
Ответы
ГузоАдела
05.10.2020 16:09
Var
a:integer;
begin
readln(a);
if (a<100) then
a:=a+1
else
a:=a-1;
writeln(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
калина007
23.03.2021 13:31
Знайти суму членів S =1:a +1:a2+1:a3+...+1:a2, якщо n =10,a =3...
davas255
23.03.2021 13:30
Отметьте все формулы, которые НЕ изменятся при копировании из ячейки C6 в ячейку C8. =$A5+B$2 =$A$5+$B$2 =$A$5+B$2 =A$5+B$2 =A$5+$B2...
илья1988
28.04.2020 15:10
Как называется оператор, содержащий в себе служебные слова: if... then else ... 1 Ветвление 2 Следование 3 Цикл...
Xrayl
17.06.2019 17:10
Перечислите все месяца года в алфавитном порядке...
gorbovaekateri
29.04.2020 13:58
Скорость передачи данных равна 1024000 бит/c. Передача файла через данное соединение заняла 5 секунд. Определите размер файла в килобайтах.В ответе укажите...
karbannikita
29.04.2020 13:58
МНЕ Розв язування компетентнісних задач з використанням мови VBA.Дани дійсні числа x1, x2, x3, y1, y2, y3. Чи належить початок координат трикутнику з вершинами (x1;y1),(x2;y2),...
agentponomarev6
24.03.2020 12:02
Найдите значение выражения. ответ запишите в десятичной системеСЧисления.1111010(2) – 234(8) + 72(16)...
lerafrank26022
24.03.2020 12:01
1Определите значение переменной c после выполнения следующего фрагмента программы:a = –5;b = 3;a = a – b*2;if (a b) c = b – a;else c = a – b; 2 Запишите алгоритм на языке...
zadireevaalina
24.03.2020 12:01
Найдите значение выражения. ответ запишите в десятИЧНОЙ СИСТемесчисления. *1001101(2)- 261(8) + 37( 16)...
SallyKromsali3
20.08.2019 23:30
А) х+(1200-900=1500 б) (50•30): y=15 в) c: (1200: 2)=3...
Популярные вопросы
Найдите значения выражений.(1)это первый пример,2)это второй пример)...
2
Надо! буду : выражение и решить 2/7(1,4a-7/2b)-1,2(5/6a-0,5b)...
3
Утомата шаровидная форма плодов доминирует над грушевидной, красная...
1
Расставь предложения в нужном порядке.: досамых бровей нахлобучила...
3
Запиши словосполучення поставивши іменники що в дужках в орудному...
2
Найдите корень каждого уравнения : (30+х)+15=60 30-15=60-х 60-15=30-х...
2
Опираясь на известное тождество s^2+1/s^2=(s+1/s)^2-2, решите уравнение(4х^4+1/4)-4(2х^3+1/2х)=10х^2?...
1
Подскажите,какой падеж у слова восьмой...
3
Линейное уравнение гаусса 3х1-9х2+8х 3=5 2х1-5х2+5х3=4 2х1-1х2+1х3=-4,...
3
Втреугольнике abc угол c равен 90°, высота ch равна 20, bc=25 . найдите...
3
a:integer;
begin
readln(a);
if (a<100) then
a:=a+1
else
a:=a-1;
writeln(a);
end.