Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
artemsteam1234oz40fw
26.07.2021 23:44 •
Информатика
Напиши те программу в паскале : даны x и y .если x> y то число заменить их квадратами .в противном случае число удвоить . надо
Показать ответ
Ответ:
ibatulina03
04.10.2020 05:50
Var
a,b:integer;
begin
readln(a,b);
if a>b then
begin
a*=a;
b*=b;
end else
begin
a+=a;
b+=b;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
laykutina
14.12.2020 23:45
Составьте программу, которая рисует план комнаты (несложную) pascalabc...
Снежка411
28.07.2020 18:06
Сколько школьных учебников емкостью 350 кбайт можно разместить на диске если объём диска 1,44мбайта...
Megatrolll228
25.09.2022 13:39
информатика 8 класс,только 4,3,с правильным оформлением(дано,формулы,решение) Кто напишет фигню ради балов,тот говнюк...
Maria21Kaplina2
19.01.2021 16:05
Дан фрагмент электронной таблицы в ячейке D1 введите формулу для подсчёта суммы ячеек...
potapovp016
17.05.2021 16:15
Плюсы растровой графики...
igorkurkin02
03.02.2021 05:54
Перед открытием основного окнапрограммы появляетсяокно выбора одного изготовых шаблонов.В шаблонах имеются:...
Milana8211
08.07.2020 17:50
Кданным существительным подберите однокоренные глаголы в форме инфинитива с суффиксами -ыва- (- -ова- (- укажите форму 2-го лица ед.ч диктант заработок подкова обмазка учёт...
21dasha21
08.07.2020 17:50
1) с аэродрома вылетел самолёт.через 2 ч,когда он пролетел 580 км,с того же аэродрома в противоположном направлении вылетел второй самолёт со скоростью 310 км/ч.какое расстояние...
Fargoo99
08.07.2020 17:50
Всаду девочка нарвала ромашки и из них составила 6 букетов. в первом букете 5 цветов, а в каждом последующем букете на 2 цветка больше, чем в предыдущем. сколько всего цветов...
Жандос111111зшо
08.07.2020 17:50
Сколько шестых долей содержится в 1/2 , 1/3, 2/3, 3/2...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b:integer;
begin
readln(a,b);
if a>b then
begin
a*=a;
b*=b;
end else
begin
a+=a;
b+=b;
end;
end.