Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
наталинка1975
17.08.2021 23:38 •
Информатика
Даны два натуральных числа a и b если а-положительное то вывести на экран b иначе вывести квадрат числа а
Показать ответ
Ответ:
marsimonenko2017
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 оценок)
Ответ:
natashasheh
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 оценок)
Популярные вопросы: Информатика
StasDvorchuk
19.05.2022 11:49
Задание 5. Составьте программу, которая в первую строку выводит названия зимних месяцев, во вторую строкувесенних, в третью строку — летних и в четвертую стро-ку названия...
Саша13398
21.10.2020 14:01
Информатика помгите >...
morente
12.01.2021 03:09
Запишите результат, который будет получен при вычислении значения выражения, если известно, что а=17, b=18, c=2, d=3 d:=a+b/(c*d) ( это информатика если что ) ...
konovalova701
09.06.2022 10:41
Найдите среднее арифметическое элементов массива Q, состоящего из 30 чисел, которые превышают по величине число С. Элементы массива - случайные числа...
rumtum
10.02.2021 09:48
В массиве размерностью 6х6 вычислить сумму элементов массива кратных 5 и не превышающих по значению число 25....
lasyaaa
17.03.2020 12:34
Поиск максимального элемента массива...
paliy2006
18.05.2020 16:59
Дано число. Если оно положительное, то поменять его знак на противоположный. Написать программу на языке паскаль...
Chechenec001
12.10.2021 13:50
Родители четырнадцатилетней карины л. сказали, что по достижению 9 класс ( 16-ти лет) , они забирают заявление из школы и переводят ее в училище. карина л , не согласна....
Ihop
12.10.2021 13:50
1. подчеркни имена существительные. белка, рыжая, скачет, весело, в лесу, гнездо, шустрая, прыгать, дупло, бельчата. 2. подчеркни собственные имена существительные....
marinazajcik0
12.10.2021 13:50
Дедушка как дела у меня все хорошо вот учусь на 5 как дела у мамы у всех как у тебя дела я жду когда ты сможешь приехать комне или я к тебе я тебя сильно люблю и жду...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.