Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
КристинаНяшка2
09.07.2022 20:30 •
Информатика
6. вычислить площадь круга и длину окружности по введенному значению радиуса. 7. вычислить площадь s и периметр l эллипса по введенным значениям полуосей a и b:
Показать ответ
Ответ:
artemcxt
22.09.2020 21:18
//Pascal ABC.NET v3.1 сборка 1172
//6
Var
r:integer;
begin
readln(r);
writeln('S=',pi*sqr(r));
writeln('L=',pi*2*r);
end.
//7
Var
a,b:integer;
begin
read(a,b);
writeln('S=',pi*a*b);
writeln('L=',pi*(a+b));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Алимакдр
02.09.2020 07:30
Визначити та обґрунтувати вибір цінової стратегії для: - нового ресторану з українською кухнею; - туристичного агентства для шанувальників екстремального відпочинку;...
isokova01
02.09.2020 07:30
Прочитай текст выполни задания стр 76...
xammatovrunar
06.06.2021 21:11
Напишете интервью со спортсменами Казахстана в виде диалога...
nemkovvlad1
06.06.2021 21:11
Нужны примеры видоизмененных надземных побегов!...
миша1133
06.06.2021 21:11
БлижайшиеОстрова тихого океана...
fajzullaevamar
04.10.2021 02:22
ДЕТИШКИ БЕГУТ НА ЛЁД С КОНЬКАМИ И САНЯМИ 1. РАЗОБРАТЬ ПРЕДЛОЖЕНИЕ ПО ЧЛЕНАМ ПРПРЕДЛОЖЕНИЯ И ЧАСТЯМ ОЕЧИ ста у меня контрольная ответьте как пожно быстрей...
Matushabos
04.10.2021 02:22
3-тапсырма. Өлеңнен адам өкінбейтін бес нәрсені теріп жаз. (жазбаша)39 бет...
karina27042005
02.07.2020 21:10
Асан қайғы неге ғылымның қандай пайдасы - білместі жолға салмаса деп айтты комектесинизши берем...
vyzgavalja1956
02.07.2020 21:10
ысота одного цилиндра в два раза больше высоты другого а его радиуса три раза больше Во сколько раз отличаются объемы?...
ernis024
12.10.2022 15:51
Англиский язык пишем к/р очень нужна...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//6
Var
r:integer;
begin
readln(r);
writeln('S=',pi*sqr(r));
writeln('L=',pi*2*r);
end.
//7
Var
a,b:integer;
begin
read(a,b);
writeln('S=',pi*a*b);
writeln('L=',pi*(a+b));
end.