tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Впаскале. дано натуральное
Впаскале. дано натуральное число n. определить, на сколько сумма первой и последней цифр заданного числа меньше произведения первой и последней цифр этого же числа.
thankay
2 01.09.2019 23:40
2
Ответы
dana1835
06.10.2020 10:42
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
natalyakulesch
17.10.2020 06:41
Достоинства и недостатки записи текста вручную и в текстовом редакторе и привести 2 примера. ...
Пумба132
05.12.2020 21:43
Сравните размеры памяти, необходимые для хранения изображений: первое изображение 8-цветное, его размер 32×64 пикселей, второе изображение 32-цветное, его размер 64×64 пикселей....
CuprumJewellier5
05.12.2020 21:34
кто шарит как обновить старый планшет asus, не знаю где находится кнопка для обновы а еще почему не открываются некоторые приложение например(роблокс,амонг ас,вк и похожие)...
semenovdima75
05.12.2020 21:33
Дайте определение термину файловая система . Опишите известные вам виды файловых систем....
nataprada
22.09.2019 04:40
Известны два расстояния одно в километрах другое в футах (1 фут=0,45м). какое из расстояний меньше? microsoft visual studio...
kolyanovak7
22.09.2019 04:40
1вопрос: выберите неверное утверждение. выберите один из 3 вариантов ответа: 1) горизонтальный ряд ячеек, от одного края таблицы до другого, образует строку. 2) наименьшая составная...
Agetnor
02.07.2019 23:40
Написать программу на паскаль, которая для введённого любого числа а выделяла его последнюю цифру....
WWW2017WWW
18.05.2019 15:10
Дан массив целых чисел.найти сумму кубов всех отрицательных элемнтов массива....
Андрей12385
18.05.2019 15:20
Напишите прогу, где осуществляется ввод целых чисел,(ввод осуществляется до тех пор, пока не будет введен 0) и подсчет кол-ва положительных и отрицательных чисел...
alenaav08
18.05.2019 15:20
Задайте массив из 10 элементов с датчика случайных чисел .поменяйте знаки всем четным элементам массива на протиположные . выведите на экран исходный и полученный массивы...
Популярные вопросы
(0,5 x²y²)(2x³y²)² быстрее ...
1
Охарактеризуйте отношение к откочёвке султанов Керея и Жанибека. А) со стороны...
1
Қазақ тілі БЖБ Жазылым 2тапсырма...
1
Какую цифру нужно записать вместо * чтобы выполнялось неравенство 1,1*5 1,185?...
1
Определи, какой выигрыш в силе можно получить на гидравлических машинах, у...
3
Өз досыңды Наурыз мейрамымен құттықтап, тілектер тілеп, ашық хат жаз.Қажетті...
3
Составьте простой план к тексту и по этому плану постройте монолог от первого...
1
2. Определите тиn односоставных предложений, форм сказуемых. 1.В темноте надышали...
1
Хан (тюрк. кан; монг. каан — властитель, монарх) — тюрко-монгольский титул....
3
1. Краска окрашивает все изделия. Тогда количество 3/8 окрашенных изделий...
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.