Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
kulisenok
30.06.2020 18:55 •
Информатика
Дано натуральное число n. найти отношение разности первой и последней цифр данного числа к их сумме.
Показать ответ
Ответ:
Superniolay
06.10.2020 10:49
Var
n,c:integer;
Begin
Write('n = ');ReadLn(n);
c:=n mod 10;
While n div 10 > 0 do
n:=n div 10;
WriteLn((n-c)/(n+c))
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
sevasik12
20.01.2023 12:10
2. Дано двузначное число вида ab. Вывести квадрат числа ba (ba**2) 3. Дано число 0 n 10. Вывести верно фразу На лугу пасётся , n корова/коровы/коров . garden = В нашем саду...
Наргиз1ппп
12.05.2022 13:43
Изучи предложенный код и определи выходные данные, если необходимо перевести заданное значение в граммы и центнеры.m1=234m2=m1x1000m3=m1/100m4=m1% 100Верных ответов: 2умоляю...
ann0706kol
12.02.2021 18:05
Проанализируйте программу и укажите переменные, значения которых будутвведены в программу....
adelina1476p0c7y7
21.11.2020 03:25
1. для какого вида памяти используется сокращение озу? 2. после отключения питания компьютера не сохраняется информация, находящаяся: 1) в оперативной памяти 2) на винчестере...
вик193
10.11.2021 18:31
Із запропонованих факторів оберіть біотичні * а)рослини паразитиб) солоність водив)паразитичні черви в організміг)хижак для жертвид) кліщіе) розорювання луківє)температураж)...
asalymbekov
10.11.2021 18:31
Даны числа 2 3/7 3 4/7 - 3 4/7 - 4 4 7 и - 2 3/7 три из них отмечены на координатной прямой точками А Б и С...
Sghem
18.02.2020 11:50
Синтаксический разбор предложения Но тикают часы, весна сменяет Одна другую, розовеет небо, Меняются названья городов, И нет уже свидетелей событий, И не с кем плакать, Не с...
AnnyKotuk
26.03.2022 09:05
но с решением,и объяснением Найти закономерность ответы: 45 40 36 34 32...
smail550
10.05.2023 02:35
Рассказ по рисункам что вы можете рассказать о памятниках чаа тас...
IrynaShchutska
24.05.2020 11:45
Сучасні рослини беруть участь в утворенні чого??? ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,c:integer;
Begin
Write('n = ');ReadLn(n);
c:=n mod 10;
While n div 10 > 0 do
n:=n div 10;
WriteLn((n-c)/(n+c))
End.