Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
SashaZorikhina
13.01.2023 22:25 •
Информатика
балов
С клавиатуры вводится число. Увеличить в три раза, если оно больше нуля. Уменьшить на 4, если оно меньше нуля. pascal abc
Ответ:
KekalolQ
08.05.2020 13:30
var a:integer;
begin
read(a);
if a>=0 then a:=a*3
else a:=a-4;
write(a);
Объяснение:
0,0
(0 оценок)
Популярные вопросы: Информатика
гость162
04.03.2023 12:38
Какие результаты выводятся на экран при выполнении программы, приведенной ниже? import math print (math. ceil (2.6)) print (math. pow (2,4)) количество правильных ответов:...
yaragorbunovaoz3vfc
24.10.2022 01:47
Як організувати розгалуження скретч...
КАТЯЯЯЯЯ111
08.05.2023 12:01
Нужно: написать написать в паскале программу, которая печатает числа наоборот(например . Заранее...
karinaletgo07
03.05.2022 01:07
на языке пайтон(Python) Тато, мама і старша сестра вечеряють, а молодший брат Василько сидить під столом і пиляє ніжку стола з початковою швидкістю 2 см на хвилину. Через скільки...
noname0002
01.09.2020 02:27
Вклад российских ученых в развитие компьютерных технологий...
v111111111
20.09.2020 15:32
Что обеспечивает IP протокол?...
Натаван11082004
07.05.2021 14:09
Дано триуголник абсд угл в=90. наити ав если дс =10 св=6 мне нужно для завтра контролная работа...
ххх49
07.05.2021 14:09
Решите уравнение 1) 13-(2х-5)=х-3 2) 26-(17-2х)=5х...
миларыбка
07.05.2021 14:09
Не проверяемые согласные и гласные по четыре примера....
lizakiki1
07.05.2021 14:09
3й класс по ! за ранее ! дополни таблицу: общее имя - день недели. конкретные имена - понедельник, вторник. общее имя - часть речи. конкретные имена - общее имя - ? конкретные...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a:integer;
begin
read(a);
if a>=0 then a:=a*3
else a:=a-4;
write(a);
Объяснение: