Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ЭминГаджиев
06.11.2021 09:35 •
Информатика
Дано трехзначное число если оно является перевёртышем найти сумму цифр этого числа, а если нет то произведение цифр этого числа
Показать ответ
Ответ:
111Сандрик111
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 оценок)
Популярные вопросы: Информатика
hanabi7suzuha
19.12.2021 04:10
Рассмотрите таблицу и Аскару записать числовые значения в ячейках: 15 2 -A143 -ПРОИЗВЕД(В1,42)-82-С1 -МИН(А1:01) 3 -CP3HAҶAIDI)-CYMM(A2D2) --MAKC(CL:C2)-СТЕПЕНЫС1:D1)...
бэйба123
28.08.2020 22:59
Сделайте программу для чертежника Ракета...
goodsmalgirl
04.04.2020 20:33
Скорость передачи данных по сети Bluetooth равна 3 Мбит/с (1 Мбит/с = 106 бит/с). Оцените время передачи видеофайла объёмом 25 Мбайт...
Goldcold
29.06.2020 17:19
Какое из приведённых логических выражений равносильно выражению (А → С) & (B → С)? 1) А & В → С; 2) А → В → С; 3) A v Б → С; 4) А ↔ Б → С оченььь надооо...
алина3539
19.11.2020 06:39
Строка записана с ошибкой: if x a and x≤b then c=a*b Выберите верный вариант записи строки. if (x a) and x≤b then c:=a*b if x a and x≤b then c:=a*b if (x a) and (x≤b) then...
ворона1111
12.07.2022 02:21
Складіть порівняльну характеристику помірного морського клімату Європи та помірного мусонного клімату Азії за самостійно визначеним планом....
Perchyn0601
06.08.2020 19:16
Әже эссе 100 120 СӨЗ. Без плагиата...
Petrov200104
06.08.2020 19:16
биология.Ничего тут не понимаю......
puremoorning
06.08.2020 19:16
949. Кабырғасының ұзындығы а-ға тең шаршының ауданын табыңдар:1) 4,5 см; 2) 8 см; 3) 9,4 см; 4) 10...
Якорь512
19.03.2021 18:11
Составить кластер на понятие значение млекопитающих в природе. ФОТО...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.