Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
oksanastrilets
05.11.2022 15:19 •
Информатика
Напишите,, программу полностью,чтоб работала))
Ответ:
sonya0013
12.06.2020 21:02
var
x, y: real;
begin
readln(x);
if (x<=5) then y:=sqr(x)
else y:=sqrt(25*x);
writeln(y);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Nikakrmararle
02.09.2021 13:38
Яку структуру має персональний комп ютер?...
дАвидИнвалид
14.01.2020 07:24
Посчитайте сколько минут займут передача сжатие и распаковка архива с этим файлом если известно что размер архива составляют 45% от исходного файла а распаковка и сжатие...
элеон3
02.06.2022 02:09
2. Как компьютеры хранят информацию?...
Владислава3000
29.05.2023 11:41
Задание 3. Пользователь работал с каталогом Последовательности. Сначала он поднялся на один уровень вверх, затем ещё раз поднялся на один уровень вверх, а потом спустился...
ipolevoy1
14.09.2021 15:17
Напишіть програму, яка реалізує додавання, віднімання, множення і ділення дробів. Формат дробів у вхідних і вихідних даних: - Знак числа (пишеться тільки у випадку,...
newagain
28.04.2023 22:21
зарисуйте любой пример графической схемы ( кроме примеров , приведённых в учебнике)...
ЛераКлаф
26.07.2022 02:25
Определите , сколько цифр в записи десятичного числа 132в системе с основанием 3...
мадя21
30.04.2021 23:38
Чему равна мощность алфавита если информационный вес его символа 5 бит?...
vityadmitriev2
03.08.2020 14:54
3. Расскажите о деяниях Кубат-бия....
ulchik4572
06.04.2020 02:36
ДАРЮ ПРОСТО ОТВЕТЬ НА ЭТОТ ВОПРОС:)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
x, y: real;
begin
readln(x);
if (x<=5) then y:=sqr(x)
else y:=sqrt(25*x);
writeln(y);
end.