Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Kyle147Rein
01.04.2021 16:31 •
Информатика
Дано трехзначное число если оно является перевёртышем найти сумму цифр этого числа, а если нет то произведение цифр этого числа
Показать ответ
Ответ:
Nalalisa
27.06.2020 10:55
var
st: string;
i,tmp,res,err:integer;
begin
readln(st);
if (st[1] = st[3]) then
for i:=1 to 3 do
begin val(st[i],tmp,err); res:=res+tmp; end
else begin res:=1; for i:=1 to 3 do
begin val(st[i],tmp,err); res:=res*tmp;
end;
end;
writeln(res);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
odminsovet
30.08.2022 05:24
А ТО НИЧЕ НЕ ПОНИМАЦ. Дана формула =А23+$В$1 D5-$R$3Относительные ячейки в формуле: Абсолютные ячейки в формуле: ...
4kusssssp08s5c
20.03.2023 08:06
11.Выпишите прилагательное, образованное сложением с одновременным прибавлением суффикса ? 1)пароходный 2)оленеводческий 3)шахматно-шашачный 4)высокогорный...
KarinaKrasko
17.09.2020 17:26
Вставьте вместо точек слова или словосочетания из текста was ill; light; flushed; fast; tongue; half-sitting 1. The patient... with pneumonia. 2. The patient has...
kseniazaica
03.06.2022 17:17
Амперметр может измерять ток не более 2 А. Сопротивление амперметра 0,1 Ом. Каково должно быть сопротивление шунта, присоединённого к амперметру, чтобы можно было...
Dasha57891
09.06.2023 15:04
5. a) Match the finitions. a) broth (n.) soup, usually made with meat. liquid used to make (n.) a thick mixture of flour and foods such as bread or pastry. (v.)...
Макс11171
03.08.2021 09:02
Можно инструкцию, как такие штуки в ворлд документе сделать...
stepanoganezov
05.07.2022 02:11
На числовой прямой даны три отрезка: P = [5,10], Q = [15,20] и R=[25,30] Выберите такой интервал A, что формулы тождественно равны, то есть принимают равные значения...
elenabradulina
14.06.2022 11:50
2. Этиш сөздөрдү чактарына жараша бөлүп жазгыла. Үлгү: өткөн чактагы этиштер: төрөлгөн, учур чактагы этиштер: бааланууда, келер чактагы этиштер: окутуп уйрөтөбуз...
vika10092005
25.01.2020 01:31
Б. В мене 3 се, 4 желтых и 5 красных шаров. Шары достают по одному, не заглядывая в мешок и откладывают в сторону. Сколько шаров надо достать, чтобы быть уверенным...
дашасалищева
02.03.2021 18:32
Установите соответствии между понятием и определением 1. Государственная служба - это отрасль права, которая состоит из норм, регулирующих общественные отношения,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
st: string;
i,tmp,res,err:integer;
begin
readln(st);
if (st[1] = st[3]) then
for i:=1 to 3 do
begin val(st[i],tmp,err); res:=res+tmp; end
else begin res:=1; for i:=1 to 3 do
begin val(st[i],tmp,err); res:=res*tmp;
end;
end;
writeln(res);
end.