Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
markmordachev
22.04.2023 22:49 •
Информатика
Даны два натуральных числа a и b если а-положительное то вывести на экран b иначе вывести квадрат числа а
Показать ответ
Ответ:
linovaya
23.09.2020 17:28
Вообще-то натуральные числа - это числа > 0, так что будем считать, что даны числа целые.
var a,b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a>0 then writeln(b) else writeln(a*a);
end.
Пример:
a = -7
b = 5
49
0,0
(0 оценок)
Ответ:
karbannikita
23.09.2020 17:28
Var a,b:integer;
begin
writeln('Введите два числа ');
readln(a,b);
if a>0 then writeln(b)
else writeln(sqr(a));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
olyabat
01.01.2020 10:41
Разложить число по основанию системы: 91050237 в 10...
ира1288
16.02.2021 17:16
Статья набранная на компьютере содержит 64 страницы, на каждой странице 40 строк, в каждой строке 40 символов. определите размер статьи в кодировке кои-8 , в которой каждый символ...
netznanie
27.11.2022 10:19
Массив содержит четное количество элементов. напишите программу которая сортирует первую половину массива по возрастанию а вторую по убыванию. каждый элемент должен остаться...
TMTEMI
22.04.2023 02:03
Перевести следующие числа из десятичной системы счисления в двоичную, восьмеричную, шестнадцатеричную системы счисления: a) 463 b) 1209 c) 362 d) 3925 e) 11355...
Znatokiys
01.04.2021 07:24
Могут ли элементами некоторого массива быть числа 1, 1.41, 1.73 и 2?...
kotodrotin
12.01.2023 10:31
Дан целочисленный массив из 30 элементов, которые могут принимать значения от 0 до 100 – , полученные на егэ. напишите программу, которая подсчитывает и выводит средний учащихся,...
tima14priluki
12.01.2023 10:31
Abc pascal нарисовать квадрат в котором будет двигаться по диагонали круг...
Тявка1
07.10.2021 22:16
Определите объем видео передаваемое с разрешением кадра 2048 х 768 пикселей с использованием 256 цветовой палитры, скоростью воспроизведения 25 кадров в секунду и длительностью...
baka8
10.04.2023 18:59
Что является предметом изучения информатики?...
rusibragimova9
26.01.2020 08:08
Почему информация которую мы помним наизусть можно назвать оперативной ? примеры оперативной информации который вы владеете...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a>0 then writeln(b) else writeln(a*a);
end.
Пример:
a = -7
b = 5
49
begin
writeln('Введите два числа ');
readln(a,b);
if a>0 then writeln(b)
else writeln(sqr(a));
end.