Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
serg6205
07.07.2022 00:49 •
Информатика
Напишите программу на языке паскаль, для решения следующей : для любого четырехзначного вводимого числа найти сумму второй и предпоследней цифры). (подсказка. используйте тип данных integer и операции div и mod)
Ответ:
Jasurka940
24.06.2020 13:45
Var a,b,c,d:integer;
begin
readln(a);
b:=(a div 100)mod 10;
c:=(a mod 100)div 10;
d:=b+c;
writeln(d);
readln;
end.
0,0
(0 оценок)
Ответ:
Yulia475414
24.06.2020 13:45
Var a,b,c:integer;
begin
read (c);
a:=c div 100; a:=a mod 10;
b:=c div 10; b:=b mod 100;
write(a+b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ГенийАнастасия
20.07.2022 04:50
Составить алгоритм и соответствующую ему программу для определения максимального элемента в таблице а[1..n]. определить величину этого элемента и его номер в таблице.произвести...
sashunyakotova
28.05.2022 19:27
ОЧЕНЬ НАДО ЗА ЗАДАНИЕ НА ФОТО ))...
Карнова
05.05.2021 05:40
Что такое рузультаты из курса информатики...
ларводаны
24.08.2020 05:32
Задали зашифровать имя имя Настя...
зюзя24
21.02.2023 08:27
Переведите число 536 в двоичную систему...
ksyumikk2003
21.02.2023 08:27
1) - перечислите виды антивируссных программ (около семи) и три их степени защиты. 2) - что такое сигнатура ?...
1970даша
28.09.2022 08:31
:количество значащих нулей в двоичной записи десятичного числа 129 равно: 1) 5 2) 6 3) 7 4) 4...
basik100grn
06.04.2020 04:28
Информационный процесс, в котором всегда участвуют две стороны слово из 8 букв...
12keti
06.04.2020 04:28
Для хранения растрового изображения размером 800 на 600 пикселей отвели 256 килобайт памяти каково максимально возможное число цветов в палитре изображения...
ritapechyonkina77
05.08.2020 16:07
1. дано трехзначное число. найти и вывести сумму его цифр. составить программу paskal . 2. дано целое число. найти число его десятков. например, у числа 326 ответом будет...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln(a);
b:=(a div 100)mod 10;
c:=(a mod 100)div 10;
d:=b+c;
writeln(d);
readln;
end.
begin
read (c);
a:=c div 100; a:=a mod 10;
b:=c div 10; b:=b mod 100;
write(a+b);
end.