Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Shermetovelyar552
17.04.2020 09:44 •
Информатика
9по информатике паскаль 8 если сумма цифр трёхзначного числа чётная, то разделить на 2, если нет умножить на 2
Показать ответ
Ответ:
ксения6538
08.10.2020 18:56
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
if (n div 100+(n div 10) mod 10+n mod 10).IsEven then Writeln(n/2)
else Writeln(2*n)
end.
Пример
n= 319
638
0,0
(0 оценок)
Ответ:
камила20053
08.10.2020 18:56
Var
x, s: integer;
k: real ;
begin
readln(x);
if (x > 99) and (x < 1000) then
while x > 0 do
begin
s := s + x mod 10;
x := x div 10;
end;
k := s / 2;
if s mod 2 = 0 then
writeln(k)
else
writeln(s * 2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sneginka2003
10.11.2021 01:45
Cколько времени потребуется для передачи файла объемом 100 бит, если скорость передачи 300бит/с? Решение:...
UNDEADrevolution
07.01.2020 04:22
Устройство для первичного ввода информации в компьютер...
арбуз30
24.02.2023 09:15
если можно с понятным решением...
Vitalik200220
10.01.2020 11:56
Нужно просто выбрать неверный отв Ниже перечислены основные функции процессора. Выбери неверный вариант ответа. * выбор/чтение выполняемых команд ввод данных из памяти или...
NJR228337
17.08.2022 15:55
Однажды на отдыхе за круглым столом оказались пятеро родом из москвы, санкт-петербурга, новгорода, перми и томска: юра, толя, алеша, коля и витя. москвич сидел между томичом...
ЕваКимСокДжин
17.08.2022 15:55
Три рыцаря три оруженосца подошли к берегу реки.у берега прявязана лодка, рассчитанная на 2-х человек. каждый оруженосец так передан своему хозяину , что отказывается оставаться...
biolev
17.08.2022 15:55
Сколько ёмкости включают в себя такие носители как : дискета , жёсткий диск, флеш-память, cd, dvd, blu-ray заранее!...
Fobsliza
22.12.2022 11:31
Запрограммируте движение робота с видеоролика. Расставьте по порядку команды1. Едет в перед (1сек)2. Едет назад (1сек)3. Крутится на месте (1сек)4. Опускает клюшку (-50 скорость)-...
кріс2
10.06.2022 19:23
Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 640×350 и палитрой из 16 цветов....
FTA72артем
01.01.2020 21:48
Установите соответствие между арифметическими операциями и результатом их выполнения ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
if (n div 100+(n div 10) mod 10+n mod 10).IsEven then Writeln(n/2)
else Writeln(2*n)
end.
Пример
n= 319
638
x, s: integer;
k: real ;
begin
readln(x);
if (x > 99) and (x < 1000) then
while x > 0 do
begin
s := s + x mod 10;
x := x div 10;
end;
k := s / 2;
if s mod 2 = 0 then
writeln(k)
else
writeln(s * 2);
end.