Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
vtest1958
17.08.2022 20:15 •
Информатика
Перевести с алгоритма на паскаль алг выражение нач цел х вещ у ввод х если х больше 0 то у равен корень из х иначе у равен abs(х) все вывод у конец
Показать ответ
Ответ:
МилаКу
08.10.2020 08:15
Конечно, в таком стиле не пишут, но это специально для Вас, чтобы было максимально похоже на "алгоритм".
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var x:integer;
var y:real;
Read(x);
if x>0
then y:=Sqrt(x)
else y:=Abs(x);
Writeln(y)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
говешка123
18.07.2020 03:12
Найти сумму кубов всех целых чисел от 20 до 40. ( написать программу в си++ )....
vasylyna946
19.04.2020 01:23
Собъяснением действие компьютерного вируса состоит в том, что вместо букв «б», «в», «л», «о», «т» выводятся цифры, кроме цифры 0, причём разным буквам соответствуют разные...
Callll
06.11.2020 18:09
Укажите логические операции:Укажите логические операции: * = = И ИЛИ НЕ = :=...
elensarkisian
11.01.2022 04:55
На языке Java: 1 Создать алгоритм реализующий игру Угадай число Человек вводит число, получает ответ. Правильный , Меньше , Больше . 2 Программа должна сама перезапускатся...
Dashakaef
27.04.2022 13:39
Запишите какие виды условного формирования вы знаете....
sanekpalyxa
28.07.2020 11:03
Уровень - Знание и понимание 1. Что лежит в основе разработки интерфейса проекта? ...
averianova1986
24.01.2021 21:12
Лейла решила нарисовать орнамент. Ей не понравилась часть линии. Она воспользовалась инструментом ЛАСТИК и была удивлена результатом егоиспользования. Что её удивило?Орнамент...
11111269
23.10.2020 17:38
Написать в таблице природные предметы и явление, Слово о Полку Игореве (Литература, 9 класс)...
olgazdobickaya1
07.06.2023 11:35
Комічні моменти в творі Кайдашева сім я ....
леньчайник
14.06.2020 00:57
Определите и запишите в тетради разность векторов: а)s1 и s1; б)F1 и F2 , изображенных на рис.22...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var x:integer;
var y:real;
Read(x);
if x>0
then y:=Sqrt(x)
else y:=Abs(x);
Writeln(y)
end.