Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
MashaE631
04.12.2021 07:18 •
Информатика
Написать программу в паскале + алгоритм. даны радиус круга и сторона квадрата. у какой фигуры площадь больше. вывести сообщение.
Показать ответ
Ответ:
dorof077
27.07.2020 10:31
Var a,r,s2:integer;
sk,p:real;
begin
writeln('a=');
readln(a);
writeln('r=');
readln(r);
p:=3.14;
sk:=p*sqr(r);
s2:=sqr(a);
if sk>s2 then writeln ('plosciadi kruga bolise ')
else writeln('plosciadi kvadrata bolise');
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
irror404
28.08.2020 04:33
Когда договаривались сходить в музей, вадим позвонил соне и ане, аня позвонила пете, соня позвонила пете и ане. однако кое-кому не удалось переговорить, потому что связь...
olya2005i
08.01.2020 08:36
Задать 2 числа .вычислить (в паскале) (a*b)/(2a 1) a+b/a-b...
mpavl8628
02.01.2020 04:51
Заданную строковую переменную записать в обратной последовательности...
КукуцапольОрегинал
06.12.2022 17:01
Все свой винчестер - это устройство для памяти 1) внутренней 2) внешней 3) оперативной...
tweetyz
08.05.2021 05:24
Выписать объекты живой природы в два списка.один назвать цветы,другой насекомые...
алалала4
08.06.2020 05:22
Мини сочинение по произведению пушкина станционный смотритель на тему виноваты ли герои пушкина друг перед другом и ели да то чем?...
Анна12061
08.06.2020 05:22
Для записи текста использовался 32 - символьный алфавит . каждая страница содержит 40 строк по 50 символов в строке . какой обьем информации содержат 7 страниц текста?...
chernoglazka970
08.06.2020 05:22
Как сравнить дроби с одинаковыми числителями? заранее !...
КириллПос
08.06.2020 05:22
Будь ласка іть мені з завданням: напишіть творчу роботу на одну із тем. 1) якби у мене було сім бажань до зді 2) моя перша подорож до моря 3) я думаю про рідний край...
раиль33
08.06.2020 05:22
На заводе в каждом из двух месяцев, в январе и феврале, более 1/3 продукции составила продукция высшего качества. какая часть продукции высшего качества выпущена за январь...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
sk,p:real;
begin
writeln('a=');
readln(a);
writeln('r=');
readln(r);
p:=3.14;
sk:=p*sqr(r);
s2:=sqr(a);
if sk>s2 then writeln ('plosciadi kruga bolise ')
else writeln('plosciadi kvadrata bolise');
readln;
end.