tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано натуральное число
Дано натуральное число n. найти отношение разности первой и последней цифр данного числа к их сумме.
nataliyantonov
3 02.09.2019 00:20
1
Ответы
vasilyeva08079oz7ptx
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mamarika2001
10.08.2019 07:00
Тема: символьный тип в паскаль вычислить сумму порядковых номеров всех букв , входящих в слово sum ,...
аы437
10.08.2019 07:00
Написать программу для решения следующей : вычислить и вывести сумму и число отрицательных элементов каждой строки матрицы а(10,10)....
мик150
10.08.2019 06:50
Переведите в десятичную систему следующие двоичные числа: 101; 11101; 101010; 100011; 10110111011 можно с решением,...
Murat20061
10.08.2019 06:50
Переведите в двоичную систему счисления следующие десятичные числа: 2; 7; 17; 68; 315; 765; 2047 можно с решением,...
Yarick2005
10.08.2019 06:50
Для чего нужно сохранять информацию в файлах? где хранятся файлы?...
МарияЛобачева
10.08.2019 06:50
Чему в десятичной системе равны следующие двоичные числа: 100001; 10000001; 100000001; 1000000001 можно с решением,...
натусик252
10.08.2019 06:50
Пример использования функции получения псевдослучайного числа. тема числовые функции....
Даша5391
10.08.2019 06:40
Дана матрица размера mxn. упорядочить ее строки по возрастанию суммы их элементов. с++...
Princessa607
10.08.2019 06:30
Умоляю решите ! в аэробусе, вмещающем 160 пассажиров, три четверти мест находятся в салонах класса и одна четверть мест - в салоне бизнес-класса. стоимость билета...
АлександрСмуглиенко
10.08.2019 06:30
1) ввести с клавиатуры целое число. определить четное оно, или нечетное. 2) решить следующие : является ли треугольник с длинами сторон a, b, c : * прямоугольным;...
Популярные вопросы
Известны координаты трех вершин ромба ABCD: А(4;1) В (0;4) C...
3
1. - Перечислить основные особенности идеологии матер. Интерн.)....
3
Что это за художник (пейзажист,портретист,маринист,баталист,анималист;известный,популярн...
2
Хто такі брати кирили та мефодій...
3
Say if in your opinion it is important to be a member of some...
3
Рассказать о жизни и творчестве Чехова...
2
Яке значення дріжджових та цвілевих грибів ?...
2
Что означает высказывание? Любой город, городу препятствие......
2
Задание: Проанализируйте ситуации и опишите свои действия в...
3
Выберите правильный ответ, Канада импортирует: А).Автомобили....
3
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.