Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
veronika13571
24.02.2022 00:14 •
Информатика
Программа на языке паскаль сравнить 2 числа а и б если число а> б, то тогда б=а2 если а=б, то без изменений если а
Ответ:
eminhesenov20
30.06.2020 22:41
Program zadanie;
var a,b:real;
beginreadln(a,b);
if (a > b) then b := sqr(a)else if(a < b) then b:=sqrt(a);
writeln(b);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
revon
08.06.2021 10:59
Уисполнителя вычислитель две команды, которым присвоены номера: 1. умножь на 2. 2. вычти 1. первая из них увеличивает число на экране в 2 раза, вторая уменьшает его на 1....
Qulya15
08.06.2021 10:59
Составить программу блок схемы и на паскаль нахождения площади прямоугольника, если извесны его стороны...
Marlboro55
11.04.2022 06:34
Яучу html и у меня не получается вставить картинку ( да и другие тэги почему-то не работают) вроде все по примеру делаю. скажите, что исправить. )...
WildOwlXD
15.04.2022 23:08
3. осуществите переводы: а) 1011101102 в десятичную систему счисления б) 10310 в двоичную систему счисления в) 2038 в шестнадцатеричную систему счисления...
tanya3104
30.10.2021 20:12
Из каких трех цветов получаются все остальные краски на цветном дисплее...
Ryfyss
17.06.2022 09:20
1.навязчивая реклама в сети-это? (4 буквы) 2.текст на языке программирования-это? (9 букв) 3. (4 буквы) 4.нападение вирусов- букв...
obzoredy
17.06.2022 09:20
Ввестис клавиатуры трёхзначное число и вывести через через запятую его отдельные цифры...
adelifanku2
07.04.2020 12:36
1.навязчивая реклама в сети-это? 2.текст на языке программирования-это? 3. 4.нападение вирусов-...
valuchska
08.01.2022 10:36
Для чего предназначены таблицы в документе?...
matvik1992
18.10.2021 17:44
Доказать законы: сочетательный (для логического сложения и умножения), распределительный (для логического сложения и умножения), исключения третьего(для логического сложения...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a,b:real;
beginreadln(a,b);
if (a > b) then b := sqr(a)else if(a < b) then b:=sqrt(a);
writeln(b);
readln;
end.