Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Níkiskastarling28
11.12.2020 15:32 •
Информатика
Составить программу, которая определяет, принадлежит ли заданное число отрезку [0; 2]. на языке pascal, pascalabc.net
Показать ответ
Ответ:
Ромчик15
04.10.2020 22:25
1. PascalABC.NET
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('Введите число:');
Writeln((x>=0) and (x<=2)?'Да':'Нет')
end.
Пример
Введите число: 1.17
Да
2. На этой же версии в стиле традиционного школьного паскаля
var
x:real;
begin
Write('Введите число: '); Read(x);
if (x>=0) and (x<=2) then Writeln('Да')
else Writeln('Нет')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nanakoguttuktnet
05.08.2021 19:10
Аьник потратил на дорогу от дома до школы 15 мин., но вторник - 18 мин., в среду - 13 мин. Вычислите, сколько времени он тратит на дорогу в среднем каждый день....
зари6а
14.09.2021 12:24
Алфавит, придуманный 7а классом содержит 128 символов. Какой информационный объем несёт сообщение, из 163 символов...
K7I0207G
23.12.2021 15:39
До іть будь ласка! ів. Мова програмування пайтон(python). 1. Розробіть програму з використанням рекурсивної функції обчислення кількості цифр у десятковому натуральному числі...
AlexandraFox13
19.03.2023 17:41
До іть будь ласочка ❤️ 1.У чому полягає сортування даних? 2.У чому полягає фільтрування даних?...
superg64745
10.01.2020 08:44
Помагите как их соединить?...
SAVAAVAAS
06.06.2022 03:17
6. Моделирование надо написать про моделирование 6класс сор по инфе...
красотка356
01.01.2020 02:40
Посмотри на изображения.Напиши отличия изображений....
kiskaignatushkina
06.10.2022 09:52
Написать програмный код С++ ЗАДАЧА : Значения элементов двумерного динамического массива из n строк и m столбцов скопировать в одномерный динамический массив размером m*n....
vika03121
14.06.2022 16:26
КОМПЬЮТЕРНЫЙ ПРАКТИКУМ: 1) Из 30 учащихся класса на уроке присутствуют 24 ученика. На- пишите программу, высчитывающую процент посещаемости в этом классе. 2) Дан интервал времени...
skillet12oz
25.08.2020 07:11
5. y=2х+1 сызыктык функциясынын графигін сал. Берілген кесте бойынша у мәнін тауып нүктелік диаграмма турiн курыныз. у=2х+1 графигін салу y 3 1 3 5...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('Введите число:');
Writeln((x>=0) and (x<=2)?'Да':'Нет')
end.
Пример
Введите число: 1.17
Да
2. На этой же версии в стиле традиционного школьного паскаля
var
x:real;
begin
Write('Введите число: '); Read(x);
if (x>=0) and (x<=2) then Writeln('Да')
else Writeln('Нет')
end.