tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу на языке паскаль,
Напишите программу на языке паскаль, для решения следующей : для любого четырехзначного вводимого числа найти сумму второй и предпоследней цифры). (подсказка. используйте тип данных integer и операции div и mod)
LetovSup
2 27.05.2019 13:00
1
Ответы
RomanenkoAA
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.
ПОКАЗАТЬ ОТВЕТЫ
Leonelle
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
fvgfds
15.07.2019 20:10
Для запеси сообщенияиспользовплся 16 символьный алфавит.каждая страница содержит 30 строк и в каждой строке 50 символов все сообщения состовляет 12000бит .отпределите...
лера12061206
15.07.2019 20:10
Запросить у пользователя количество строк которые нужно сгенерировать и название файла. сгенерировать указанное пользователем количество строк состоящих из случайным...
davidmarabyan
11.01.2021 08:48
Что такое IDE?2. Что включает в себя среда разработки?3. Что такое отладчик?...
gimirunb
11.01.2021 08:47
Сколько информации (килобайт) в системе Unicod содержит сообщение, которое занимает 200 страниц, при этом на каждой странице по 32 строки, а в каждой строке в среднем...
lenokm050406
11.01.2021 08:45
Группу ячеек образующих прямоугольник называют в EXCEL...
8Евген8
24.10.2020 16:16
С двоичного дерева закодируйте заранее...
4333Jack99
14.05.2020 18:49
1. Политика безопасности осуществляется ад...ыми системами . Допишите пропуск маленькими буквами 2. входит ли обеспечение единого механизма санкционированного доступа...
3ц4у5е67шщзх
17.09.2019 17:00
Бəрі жақсы біледі жорғалаған тышқанды. соған қарап , жасады жалғасын тауып беріңіздерші...
magnatca
17.09.2019 17:00
Напишіть твір чи варто берегти кохання за повістю пісня над піснями будьласка дуже треба на завтра...
tsaturyansyuza
17.09.2019 17:00
Разложите на множители: a^1*b^2-b^4*a^2...
Популярные вопросы
Придумайте свою сказку о Солнечном Луче. Запишите её начало....
3
Сколько загадок разгадала дочь крестьянина? Отметьте ответ Братья...
3
Кроссворд «Герои Зимней сказки» 1. Имя первой сосны. 2. Сын крестьянина....
2
Перечитайте описание предрассветной поры. Подчеркните эпитеты,...
3
Автор говорит: «По зеркальной воде, по кудрям лозняка от зари...
2
Как автор приветствует новый день? Никитин. Утро Найдите ответ...
2
Что вы знаете о русском поэте И.С. Никитине? Запишите....
3
Объясните значение слов. Соха — _ Лозняк — Пахарь —...
2
Перечитайте стихотворение и разделите на части по плану. Никитин...
2
Как люди относились к собаке? Андреев. Кусака Отметьте ответ наказывали...
1
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.