Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ALEXGEEK
25.03.2022 11:34 •
Информатика
Даны 2 числа. если они положительные - умножить их на 3, иначе - возвести в квадрат. в pascal
Показать ответ
Ответ:
paolo99
07.07.2020 23:34
Var a, b:integer;
begin
write('a='); read(a);
write('b='); read(b);
if (a > 0) and (b > 0) then
writeln(3*a, ' ', 3*b)
else
writeln(a*a, ' ', b*b);
end.
0,0
(0 оценок)
Ответ:
Roland227
07.07.2020 23:34
uses crt;
var a, b, x, y, newa, newb, newa2, newb2:integer;
begin
write('a='); read(a);
write('b='); read(b);
newa:=3*a; newb:= 3*b;
newa2:=sqr(a); newb2:=sqr(b);
if (a>0) and (b>0) then write('newa = ',newa,' | ', 'newb = ',newb)
else write('newa = ',newa2,' | ', 'newb = ',newb2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
SashaUshanka
25.07.2020 13:16
За якими ознаками можна визначити, що до електронного листа було прикріплено та надіслано файл?...
Matvei337
31.07.2021 16:14
Как решить? Это тест а я ничего не понимаю... Можно с решением?...
vdv2001891
27.04.2021 00:28
1.Определи назначения данных датчиков. 2. Проведи исследование и расскажи о них, используя источники дополнительной информации....
akow08
15.09.2022 17:10
Какие утверждения верны для беспроводных мышей? Варианты ответов передают данные с радиоволн передают звуковые сигналы им требуется источник питания компьютер должен иметь...
mnmnho57
07.02.2022 02:41
В результате влияния циркуляции воздушных масс, в Центральном Казахстане наблюдаются неблагоприятные климатические явления. Из перечисленных неблагоприятных явлений Казахстана...
12363211
07.02.2022 02:41
3. Мастерская юного писателя Найди в стихотворении повторяющиеся строки. Выпиши их.В.Маяковский ,,Кем быть?,,...
Алёнаум1
02.04.2020 23:04
Вам предстоит найти собственные примеры: а) неожиданных поступков или слов героев; б) несоответствия и противоречивости в поведении героев; в) гиперболы — преувеличения до...
ayaplay457890
02.04.2020 23:04
Определи, какую массу спирта превратили в пар, если для этого затрачено 9570 Дж энергии? (Удельная теплота парообразования L=857000 Дж/кг).ответ (округли до десятых) ...
taniataolia
08.06.2022 06:30
Найдите соответствие растворов среде ...
TaKuRGRAF
08.06.2022 06:30
Прочитайте отрывок из книги Сьюзан Флетчер «Путешествие белой медведицы». Выпишите из текста описание шторма *...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('a='); read(a);
write('b='); read(b);
if (a > 0) and (b > 0) then
writeln(3*a, ' ', 3*b)
else
writeln(a*a, ' ', b*b);
end.
var a, b, x, y, newa, newb, newa2, newb2:integer;
begin
write('a='); read(a);
write('b='); read(b);
newa:=3*a; newb:= 3*b;
newa2:=sqr(a); newb2:=sqr(b);
if (a>0) and (b>0) then write('newa = ',newa,' | ', 'newb = ',newb)
else write('newa = ',newa2,' | ', 'newb = ',newb2);
end.