Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
LizaKrem
14.01.2023 15:08 •
Информатика
Дано число если оно является не целым то вывести точку, а иначе прямоугольник.
Показать ответ
Ответ:
дар70
10.10.2020 02:14
var a:integer;
begin
write('введите число');
read(a);
if (a>1) then a:=a+1 else a:=a-2;
write(a);
0,0
(0 оценок)
Популярные вопросы: Информатика
efr47
04.09.2022 20:40
1. Определите тип ошибок в следующих ситуациях.а) Робот выполняет команду вниз, А внизу находится стенка:б) Робот закрасил не все клетки, Которые нужно закрасить:в) Вместо команды...
mirt10
25.01.2020 20:00
РЕШИТЕ !!1!111 Для какого значения Х истинно высказывание¬((Х 2)→(Х˃4))?...
nikoszahar
24.08.2022 12:54
6. Расставьте пароли по уровню сложности от простого к сложному: A)BLU98KYHБ)12345678В)V_fD12Jk...
YAGA009
06.05.2021 11:08
Расшифруйте ребус Т , кекс , стол 4= В , заяц ,...
staslukutin
20.01.2022 12:12
Написать прототип, определение и пример вызова функции...
Loskinstem5617
10.06.2021 10:05
3. Сколько групп инструментов графического редактора можно выделить? ...
mordecaill122
23.04.2020 01:32
Запишите диапазон выделенных ячеек....
SashaZanevskaya
27.01.2021 04:20
3. Сколько групп инструментов графического редактора можно выделить ? и еще каких ...
ObraztsovaOlga
05.05.2021 03:45
Бабушка купила 2 кг яблок по 2 рубля за килограмм и 1 кг винограда за 3 рубля сколько денег бабушка заплатила за покупку...
Sonialovegirl
05.05.2021 03:45
Составьте текст об осени. 6-5 предложений....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
begin
write('введите число');
read(a);
if (a>1) then a:=a+1 else a:=a-2;
write(a);