Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
vasyav1337
22.09.2021 09:31 •
Информатика
Даны два натуральных числа a и b если а-положительное то вывести на экран b иначе вывести квадрат числа а
Показать ответ
Ответ:
yablokooooo
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 оценок)
Ответ:
Безликая009
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 оценок)
Популярные вопросы: Информатика
mrprogemir
10.06.2021 16:42
Напишите прогу в одномерном массиве, состоящим из n вещественных элементов, вычислить: 1)произведение отрицательных элементов массива; 2)сумму положительных элементов массива,расположенных...
avetisyana902
17.01.2023 12:00
Алгоритме, записанном ниже, используются переменные a и b. Символ «:=» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно операции сложения, вычитания,...
Айдана55л
28.11.2022 12:43
Разработайте проект, в котором у пользователя вашей программы сначала запрашиваются величины трех сторон треугольника а, b, c,а затем вычисляется площадь этого треугольника...
baten
25.01.2023 16:40
Нужен простенький код для сайта на html с 4 страницами ...
babykitten5002p08hdk
03.07.2020 22:57
Сфункций mod, div, сформировать число, представляющее собой реверсную (обратную в порядке следования разрядов) запись заданного четырёхразрядного числа. например, для числа...
Victoriya1234567890
15.09.2020 11:40
Составьте программу, которая формирует массив из 20 случайных целых чисел, каждое из которых находится в диапазоне от -15 до 15, и выводит на экран вначале исходные, а...
abdil2017
14.01.2020 13:09
Скодом jquery имею модальное окно и код jquery. как мне сделать, чтоб при клике в модальном окне на да - удалялась ? скрины:...
ХЗшкин
07.03.2023 15:44
Представь десятичное число 10846 в шестнадцатеричной системе счисления! ...
UlianaTir
22.05.2022 11:08
Чому птахи не тонуть, а плавають у воді?...
hameleon5
24.10.2020 05:17
Оксид металла ІІа группы имеет молярную массу 40 г/моль. Определите металл...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.