Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Eka228
09.12.2020 04:07 •
Информатика
Паскаль. написать программу при процедуры, которая по известному радиусу возвращает в основную программу значения площади круга и длины окружности. входящие данные: r (радиус); выходящие данные: s (площадь), l (длина окружности)
Показать ответ
Ответ:
katpetrompet4345
02.10.2020 16:11
Program primer;const Pi=3.14;
procedure SandL(R: integer; var S,L: real);
begin
S:=Pi*Power(R,2); L:=2*R*Pi; end;
var R: integer;
S,L: real;
Begin
readln(R);
SandL(r,s,l);
writeln(Trunc(s),' ',Trunc(l));
end.
ABC Pascal
0,0
(0 оценок)
Популярные вопросы: Информатика
elyaivanova85
14.11.2020 13:52
Определите количество символов в информации по формуле хартли и обоснуйте ответ...
lap85928
25.06.2020 06:46
Нахождение разности максимального и минимального элемента массива паскаль (нарисовать блок схему)...
DAMALOVE
08.11.2022 04:16
Какое из высказываний ложно: 1. Информацию условно можно разделитьна ВИДЫ зависимости от формыпредставления2. Процесс обработки информациитехническимиустройствами носитосмысленный...
Alexkusaiko
20.04.2023 03:37
изменить программу Модифицировать приложение «Классы и объекты (модифицированный вариант)» таким образом, чтобы можно было изменять значения количество часов на лекцию, лабораторную...
smail212313
09.06.2022 08:04
Трёхпозиционное десятичное число в середние имеет цифру 4. Если эту цифру переместить на первое слева место в числе, т.е. если с неё будет начинаться запись нового числа, то половина...
lolkek6969
28.11.2022 14:30
Рука и нога это одушевленный или неодушевленный?...
Черноболь666
28.11.2022 14:30
Почему у нетренированных людей сердце при нагрузок работает быстрее?...
drswag12312
28.11.2022 14:30
Придумайте предложение с каждым словом, 35 : готовить,камыш,карниз,конструктор,конструкция,копейка,костёр,матч,пальто,пианино,престиж,престижный,свитер....
Alniri
28.11.2022 14:30
Решите . из двух сёл,расстояние между которыми 36 км,одновременно навстречу друг другу вышли два пешехода.скорость первого 4 км/ч ,скорость второго 5 км/ч .какое расстояние будет...
katya2007
28.11.2022 14:30
Какое количество теплоты выделяется при кристаллизации 2 кг расплавленного олова,взятого при температуре кристаллизации ,и последующем его охлаждении до 32 градусов цельсия?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
procedure SandL(R: integer; var S,L: real);
begin
S:=Pi*Power(R,2); L:=2*R*Pi; end;
var R: integer;
S,L: real;
Begin
readln(R);
SandL(r,s,l);
writeln(Trunc(s),' ',Trunc(l));
end.
ABC Pascal