Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
elkat24
24.03.2021 09:31 •
Информатика
Составить блок-схему и программу, которая большее из двух произвольных чисел возводит в квадрат, а меньшее увеличивает на единицу.
Показать ответ
Ответ:
borovitskii2014
22.06.2020 22:17
Program z1;
var
a,b,c,d:integer;
begin
writeln('Введите число a и число b');
readln(a,b);
c:=sqr(max(a,b));
d:=min(a,b)+1;
writeln('Первое число ',c,', второе число ',d);
end.
Исправил
0,0
(0 оценок)
Популярные вопросы: Информатика
AndreyDixord
13.05.2021 09:39
6 Задания (1*. Составь программу для составления словосочетаний из следующих СЛОВ. Bass рольме Kynocarup Nur, alty, Saule, Sultan, su, bakan, ak , , 2. Какую программу...
анна2167
02.04.2021 13:01
Задание 1 Во Компьютерная графика - это ... Выберите несколько из 4 вариантов ответа: 1) наука, один из разделов информатики, изучающий создания и обработки изображений...
kektuber222owf6bv
06.04.2023 02:23
ВТОРНИК, 14 Апр 2020 Информатика Напишите программы к задачам: 1. Даны переменных X, Y и Z. Найти сумму, произведение, сумму квадратов и среднее арифметическое этих...
Doktor77
26.12.2020 13:06
Декодируй те слова а) 01001101 01001111 0100110 01001001 01010100 01010010 Б) 01001101 01101111 01100011 01100101 01101101 (5класс)...
irlukshina
02.07.2022 23:54
12. Приведите примеры систем управления, в которых отдельный человек, группа людей, техническое устройство, животное могут быть: 1) объектом управления;2) управляющим...
bosssanyawolf
26.03.2020 07:16
Как создавать и редактировать растровые изображения...
marty4
09.09.2021 03:58
Қандай қарапайым логикалық операторларды білесің дер?...
anx2003
22.07.2021 05:21
Дан фрагмент кода программы. х = 0for num in range(10):X=Х+1 if x = =5breakПри каком значении параметра num цикл прерывается?23456...
saskam310
05.09.2021 05:29
Назовите ,языки программирования,кроме паскаль и языков для web...
Флов227монстр
15.01.2021 07:10
Эссе ( 10 предложений) «Если бы я был инопланетянином ...» на английском....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a,b,c,d:integer;
begin
writeln('Введите число a и число b');
readln(a,b);
c:=sqr(max(a,b));
d:=min(a,b)+1;
writeln('Первое число ',c,', второе число ',d);
end.
Исправил