Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
tony23
31.12.2021 22:55 •
Информатика
В"кумир". 8 класс 1) ввести число. если оно больше 10, разделить его на 2, если меньше или равно 10, то умножить на 5. 2) ввести два числа . если их сумма больше 100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза
Показать ответ
Ответ:
Maximoniko
30.04.2020 14:47
№1
алг
нач
вещ a
ввод a
если a>10 то a:=a/2 иначе a:=a*5 все
вывод a
кон
№2
алг
нач
вещ a,b,sum
ввод a,b
sum:=a+b
если sum>100 то sum:=sum/2 иначе sum:=sum*2 все
вывод sum
кон
0,0
(0 оценок)
Ответ:
ромамс
30.04.2020 14:47
1)var
n:real;
begin
readln(n);
if n>10 then
n:=n/2
else
n:=n*5;
writeln(n);
end.
2) var
a, b: integer;
begin
writeln('Введите два числа: ');
read(a, b);
if a + b > 100 then writeln((a + b) / 2)
else writeln((a + b) * 2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
oblasovsema
28.07.2021 03:12
SCмоделируйте электронной таблице процессе определение Салы тока ( а акону Ома 1U/R, гдеU - напрежение, а R-сопротивление Напишите формулу мененияиспользуя адреса сек....
VladKot133
30.01.2020 03:50
Какую формулу нужно записать в ячейку b2, чтобы вычислить в ней сумму значений ячеек a1 и b1?...
камомармалато
18.04.2023 05:00
На расстоянии 12-14 Арбитр засчитывает кеглю вытолкнутой и снимаетее с ринга, если кегля оказалась за пределами круга.Это познавательно!Соревнование по кегельрингу состоит из двух...
твайнзайа
27.06.2020 17:13
Как умножить и сложить числа находящееся в двоичной системе счисления...
nano82
13.10.2020 10:28
сколько бит потребуется для кодирования монохромного четырех цветного изображения( с полутонами серого)?...
katy994
16.05.2022 19:39
При регистрации в компьютерной системе каждому пользователю выдаётся пароль состоящий из 12 символов и содержащий символы из 8-символьного набора: A B C D E F G H. В базе данных...
goldshell
17.10.2021 01:09
Каждая страница учебника содержит 20 строк, в каждой строке 40 символов. Учебник состоит из 80 страниц. Определите информационный объем учебника в килобайтах, битах, мегабайтах....
darkfire2017oxd5un
04.02.2023 05:48
Найдите наибольшее значение в списке и индекс последнего элемента, который имеет данное значение за один проход по списку, не модифицируя этот список и не используя дополнительного...
avokebest
11.05.2022 20:38
Эссе рассуждение на тему как изобретатели могут повлиять на страны (120 слов) !...
Методист228
18.05.2020 23:18
Perceive it, but the positive story is that the diversity ofbritain s culture meansthere is something for everybody. as well as differences by nationality, manyactivities also appeal...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
алг
нач
вещ a
ввод a
если a>10 то a:=a/2 иначе a:=a*5 все
вывод a
кон
№2
алг
нач
вещ a,b,sum
ввод a,b
sum:=a+b
если sum>100 то sum:=sum/2 иначе sum:=sum*2 все
вывод sum
кон
n:real;
begin
readln(n);
if n>10 then
n:=n/2
else
n:=n*5;
writeln(n);
end.
2) var
a, b: integer;
begin
writeln('Введите два числа: ');
read(a, b);
if a + b > 100 then writeln((a + b) / 2)
else writeln((a + b) * 2);
end.