Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
goodwar40
29.03.2022 01:12 •
Информатика
Паскаль определить,можно ли сделать круглую заготовку с заданным радиусом r из квадратного листа фанеры с заданной стороной а. решить ее надо с оператора выбора case
Показать ответ
Ответ:
гот12
19.06.2020 08:29
Var
a, r : Integer;
begin
Write('a = ');
Readln(a);
Write('r = ');
Readln(r);
case a div r of
0..1: Writeln('no');
else Writeln('yes');
end;
Readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
egoremykina
22.07.2020 15:44
Всем добрый вечер объясните мне принцип работы биполярного транзистра ( кратко)...
kiryazhigulski
30.10.2021 18:22
Сканируется цветное изображение размером 25 х 30 см. разрешающая сканера 300 х 300 dpi, глубина цвета — 3 байта. какой информационный объём будет иметь полученный графический...
KenDipp
10.02.2020 10:21
Программирование на Си. Написать программу....
Бозя1
29.12.2020 18:29
1. Пользователь вводит два числа. Найдите сумму и произведение данных чисел. 2. Вычислите значение выражения (a+4b)(a−3b)+а² 3. Дано число. Если оно больше 3, то увеличить...
gulnoza10
14.05.2022 21:25
Себебін анықтайық! 1. Бір адамның немесе адамдар тобының ақыл-ой, іс-әрекетінің нәтижесі не себепті заңмен қорғалады? 2. Не себепті авторлық өнімді рұқсатсыз қолдануға болмайды?...
pudgenamide
26.11.2020 17:03
Выражение на языке Паскаль: sqrt(sqr(x)−6∗x+6). Данное выражение на математическом языке: x2−6x+6−−−−−−−−−√ ∣∣x2−6x+6∣∣ x2−6x+6−−−−−−−−−√5 (x3−6x+6)2...
olgamaryutina
07.06.2021 16:13
На числовой прямой даны два отрезка: P = [10, 20] и Q = [12, 15]. Выберите такой отрезок A, что формула ( (x ∉ А) → (x ∉ P) ) \/ (x ∈ Q) тождественно истинна, то есть принимает...
nastuaserova
22.11.2021 11:57
Выбери программу, которая вычисляет длину гипотенузы. var a,z,p:real; begin writeln( Введи длины катетов a и z ); readln(a,z); p:=sqrt(a*a+z*z); writeln( p= ,p:8:2); readln;...
leradolgolenko
12.10.2021 15:15
8-ми цветный рисунок состоит из 200 × 300 пикселей. Определить размер рисунка в байтах....
tanyushalyubim
22.05.2020 04:23
Пользователь вводит числа с клавиатуры до тих пор, пока не введёт ноль. после ввода ноль программа выводит на экран количество четных и сумму не четных введенных чисел.нужно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, r : Integer;
begin
Write('a = ');
Readln(a);
Write('r = ');
Readln(r);
case a div r of
0..1: Writeln('no');
else Writeln('yes');
end;
Readln;
end.