Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
marusiatabakova2006
29.12.2022 00:15 •
Информатика
Составьте программу: по заданной стороне квадрата и радиусу круга выяснить поместится ли квадрат в круг и круг в квадрат?
Показать ответ
Ответ:
petrius100p0bmz5
24.06.2020 06:15
Program z1;
var
r,s:integer;
begin
writeln('Введите радиус круга');
readln(r);
writeln('Введите сторону квадрата');
readln(s);
If s>r then
writeln('Круг поместится в квадрат')
else
writeln('Квадрат поместится в круг');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
анастасия06021
19.12.2022 11:35
Напишите программу, которая определит какой процент состовляют буквы а во введеном тексте. ВНИМАНИЕ ЭТО НА C++, НЕ Pascal ...
Алижан07
25.02.2023 10:04
Створити програму, яка заносить в масив всі парні числа від 1 до 199 і виводить їх на екран (Delphi). Треба написати як запрограмувати це завдання...
selinnikita22
17.04.2022 23:01
Нужно расшифровать ключ, 25 символов, дано только вот это: c++ constexpr int II11III111[] = { 1847, 1847, 6677, 1955, 1449, 1478, 1891, 1449, 1891, 1255, 1451, 1478, 6632,...
sivtsevavera2005
12.09.2022 08:12
Тізім дегеніміз не? ...
LuckProJeckt
18.01.2022 03:06
СЕГОДНЯ СДАВАТЬ Для данной программы построить блок-схему и найти значение С и Р при х=45; 97; 55 program n_3; var x, a, k,C: integer;P: real; begin writeln ( Введите двузначное...
pasha276
23.09.2020 13:50
1. написать программу. условие : написать программу вывода на экран лесенкой трех последовательно идущих трехзначных чисел. первое число вводит пользователь, остальные...
sofjiasofa123456
23.09.2020 13:50
Какие данные вы бы включили в информационные модели: 1) обед в школьной столовой 2) ремонт квартиры 3) пассажир поезда 4) дом, в котором ты живешь...
Yotuberik
23.09.2020 13:50
Как программируется на паскале ветвление?...
vgubajdullin
13.06.2020 05:24
Подчеркните числа, делящиеся: а) на 10: 720, 123, 321, 235, 774, 600, 2003, 2004, 2005; б) на 5: 720, 123, 321, 235, 774, 600, 2003, 2004, 2005; в) на 2: 720, 123, 321,...
dashabalybina11
13.06.2020 05:24
Подскажите ,как решить : хоккейная команда провела три матча забив в ворота -три шайбы и одну пропустила .первый матч выйграла она,другой свела в ничью ,а третий проиграла....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
r,s:integer;
begin
writeln('Введите радиус круга');
readln(r);
writeln('Введите сторону квадрата');
readln(s);
If s>r then
writeln('Круг поместится в квадрат')
else
writeln('Квадрат поместится в круг');
end.