Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
OlaCoch
19.03.2022 00:19 •
Информатика
Составить программу вычисления площади круга
Ответ:
PHVRVOH
21.07.2020 11:56
Program prog;
uses crt;
var
s,r: real;
begin
Write('Радиус круга = ');
readln(r);
s:=pi*sqr(r);
writeln('S = ',s:0:3);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Saweretufio
31.03.2020 09:12
Используете ли вы планы действия обработки информации на уроках языка? пример....
ilyadmitriev0
31.03.2020 09:12
12. в городе n пятизначные номера телефонов. какое наибольшее число абонентов могут обслуживать телефонные станции, если номер может начинаться с 1, 2, 5 или 6?...
Lera11111111100000
09.04.2020 14:13
Решить программу по информатике. f= √a дробная черта и внизу b и это умножаем на с в кубе...
Вика12342001
09.04.2020 14:13
1.с клавиатуры вводится слово,распечатать все его буквы через пробел.(после последней буквы пробела быть не должно). 2.написать программу,которая удаляет первое слово из строки...
Назар233
31.03.2020 15:39
Напишите программу поиска всех трёхзначных чисел, сумма цифр которых и само число кратны 7 paskal...
gg5765453232
31.03.2020 15:39
Впаскале.дан массив из 20 чисел.найти сумму первых десяти (1..10),произведение последних десяти (11..20) и среднее арифметическое этих результатов....
ринат126
31.03.2020 15:39
Программа в pascal 1.написать программу которая определяет сколько раз в строке,введенной с клавиатуры, встречается буква м. 2.написать программу которая удаляет из строки,...
juljadob54
26.11.2022 18:42
Напишите программу на вычитание, деление и умножение (8-9 класс) на примере: program n_1 uses crt var a, b, c: integar; begin writeln ( введите а: ); readln (а); writeln (введите...
nikvermenox7gay
26.11.2022 18:42
Заполнить массив из 10 элементов случайными числами в интервале [0..99] и отсортировать его по возрастанию суммы цифр. исходный массив: 14 25 13 12 76 58 21 87 10 98 результат:...
Karon1337
09.04.2022 10:35
1. распечатать в столбик таблицу умножения на число n(значение n ввести с клавиатуры; 1 =n =9) 2. дано натуральное число n. найти сумму n^2+(n+1)^2++(2n)^2 все решить на паскале,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
uses crt;
var
s,r: real;
begin
Write('Радиус круга = ');
readln(r);
s:=pi*sqr(r);
writeln('S = ',s:0:3);
end.