Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Мотылёк62
01.11.2020 17:05 •
Информатика
Составить программу если число положительное, извлечь квадратный корень, в другом случае взвести в квадрат.
Показать ответ
Ответ:
darik2042005p07x0l
06.10.2020 22:26
Program z123;
var a:real;
begin
readln(a); //Вводим число
If a>0 then //Проверяем
a:=Sqrt(a) //Вычиляем
else
a:=Sqr(a); //Вычисляем
writeln(a); //Выводим
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ksenia20062
27.07.2020 11:52
очень нужно написать программу Паскаль одномерные массивы!...
FWEAAFE
13.11.2020 22:59
Укажи, в каком из устройств центрального процессора данные хранятся в нулях и единицах. А. оперативное запоминающееся устройство В. регистр памяти С. устройство управления D....
manazoid
06.08.2020 03:24
решить задачу на Питоне Массивы...
Hjlüüä
06.08.2020 03:24
сам материнскую плату asus p5kpl am se под xeon e5450. Плата поддерживает 4 ядерные процессоры так же она на чипсете g31. Мать видит проц, но при загрузке выходит эта ошибка,...
LJкрасотка2007
04.02.2022 16:40
Нужно решить задачу по информатике на. C++...
УРОК000
19.09.2022 06:05
на языке питон а=1/9в 3степени-6,4(b+8)+3/4b...
yanzabelina
13.11.2022 16:43
Python: В игре «Русское лото» из мешка случайным образом выбираются бочонки, на каждом из которых написано число от 1 до 90. Напишите программу, которая выводит наугад первые...
мозгилучше
08.01.2021 17:33
Просмотрите онимательно видео для урока и решите тестовые sorrросы 1 Де чего нужен гироскопический датчикА) да измерения скорости движения роботаБ) дли измерения утла и скорости...
Arina8987
21.12.2022 14:21
Почему мясо животных и птицы после варки и порцинирования повторно прогревают в бульоне...
erenina88
21.12.2022 14:21
Переведите на (соблюдая грамматику) 1.мои друзья сказали,что ездили в монако во время отпуска. 2.офицер попросил,чтобы я показал свое удостоверение водителя. 3.джек спросил есть...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:real;
begin
readln(a); //Вводим число
If a>0 then //Проверяем
a:=Sqrt(a) //Вычиляем
else
a:=Sqr(a); //Вычисляем
writeln(a); //Выводим
end.