Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
дима20173
04.01.2022 18:45 •
Информатика
Вводится трехзначное число,найти произведение первой и последней цифры числа. сделать на паскале
Показать ответ
Ответ:
inchinusaozkhxs
01.10.2020 19:54
Var a,b1,b2,P:integer;
begin
Writeln('Vvedite chislo');
readln(a);
b1:=a div 100;
b2:=a mod 10;
P:=b1*b2;
writeln('Proizvedenie = ',P);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sushenkop08wf4
02.08.2020 19:15
Запишите число 2,019E+6, записанное в научном формате, в обычном формате....
OFFICIALLL
21.03.2023 15:03
Какие бывают вирусы и антивирусы?...
катя5089
23.03.2020 08:23
Написать программу вычисления сопротивления электрической цепи, состоящей из 2х сопротивлений. сопротивления могут быть соединены параллельно или последовательно. как должен быть...
darya942
23.03.2020 08:23
Сколько существует различных наборов значений логических переменных x1, x2, x9, y1, y2, y9, которые удовлетворяют всем перечисленным ниже условиям: ( (x1 ≡ y1) → (x2 ≡ y2) ) /\...
aidaXD
09.10.2021 03:42
Решите плеаз(((( последние отдал...
Кавайныйлебедь
29.05.2020 14:19
Выберите фрагмент программы, в котором ищется произведение 1*2*3*4*5 1. а:=0; i:=1; repeat a:=a*i; i:=i +1 until i =6 ; 2. а:=1; i:=0; repeat a:=a*i; i:=i +1 until i 5 ; 3. а:=1;...
Маркизетта
14.02.2022 08:07
Для хранения растрового изображения размером 64x64 пикселя отвели 4 Кбайтов памяти. Каково максимально возможное число цветов в палитре изображения...
lНанамиТянl
19.03.2023 19:36
1. Вычислить значения выражений 1) 125/%10 2) 125//100 3) 125//10%10 4) 4**2+pow(16, 0.5) 2. Вычислите значение вещественной переменной c при a = 2 и b = 3: а) с = a + 1 / 2 б)...
toguzov2005
27.06.2022 00:33
1) Що таке програмне забезпечення комп’ютера? * 1.Сукупність периферійних пристроїв: принтер, сканер, модем тощо 2.Сукупність програм, встановлених на комп’ютері 3.Електронні...
SofiyaSofia
17.11.2021 17:01
Сочинение на тему чему учит и чес нанимались в древнегреческих геснасиях...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Writeln('Vvedite chislo');
readln(a);
b1:=a div 100;
b2:=a mod 10;
P:=b1*b2;
writeln('Proizvedenie = ',P);
readln;
end.