Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
aantonenko240
24.11.2021 09:18 •
Информатика
Даны три числа а,в,с.составить программу,которая вычислит квадратный корень только положительных чисел
Показать ответ
Ответ:
alexey2006kost
04.10.2020 23:31
Паскаль:
Program one;
Var a,b,c:real;
Uses CRT; //можно не писать, команда подключает консоль
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
If a>=0 then writeln(sqrt(a));
If b>=0 then writeln(sqrt(b);
If c>=0 then writeln(sqrt(c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dmitrii66613
31.08.2022 19:59
Задан массив размером 10. если сумма элементов окажется больше 10, то найти количество четных элементов, иначе – произведение нечетных....
евгения406
10.11.2020 20:31
Запиши верный ответ (без пробелов). Write ( h = , h); Для h=25 на экране будет...
Typhoon01
27.11.2020 01:45
Розробити програму знаходження відстані яку пройшло тіло , з відомою швидкістю за 5хв....
katiabrandt17
16.03.2022 06:17
Начав тренировки, лыжник в первый день пробегал 10 км. Каждый следущий день он увеличивал длину пробега на 10% от предыдущего дня . Через сколько дней лыжнику придётся пробегать...
kristinaбатурина2054
08.02.2022 04:01
Що буде надруковано в результаті виконання фрагментупрограми? *for i in range (3):print (i)...
wardian
12.04.2020 07:16
На языке паскаль! даны 2 числа минимальных вывести минимальное из них....
FlaxyPlay
15.01.2023 13:14
Какие ощущения вы испытывали купаясь летом в реке...
илона2707
15.01.2023 13:14
Вмассиве 10 элементов. определить средне арифметическое чисел положительных и находящихся в промежутке от 10 до 15, удалить из массива минимальный элемент...
ruslan5632
03.12.2021 15:22
Книги _ источник знаний. пунктационный рабор...
Lena2345671
03.12.2021 15:22
Продумайте стих со словами исключениями на правило правописания о ё после шипящих в корне слова. за рание...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Program one;
Var a,b,c:real;
Uses CRT; //можно не писать, команда подключает консоль
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
If a>=0 then writeln(sqrt(a));
If b>=0 then writeln(sqrt(b);
If c>=0 then writeln(sqrt(c);
end.