1. Информатика
  2. Определить 3-ю цифру в записи

Определить 3-ю цифру в записи 6-значного натурального числа. для нахождения 3 цифры надо "отрезать" от числа последние 3 и первые 2 цифры составить программу ,применяя операции div и mod. .

aaannnaaa1 aaannnaaa1    2   06.08.2019 08:40    4

Ответы
alinasharifulli alinasharifulli  04.10.2020 00:46
Var
a,a1,a2: integer;
begin
writeln ('vvedi cislo');
read (a);
a1:=a div 1000;
a2:=a1 mod 10;
writeln (a2);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vladikpadic vladikpadic  30.06.2021 19:56
0. Реализовать собственную функцию для поиска символа в подстроке. Функция принимает на вход строку, возвращает индекс поцизици символа, если символ найден и -1 если символ...
dcherniesheva dcherniesheva  30.06.2021 21:14
Рассчитайте минимальное количество проводов в шлейфе для передачи информации параллельного кода строки цветного AMOLED дисплея разрешением 4K....
serhio2000 serhio2000  16.09.2019 17:08
Середня швидкість читання учня 8-го класу становить 500 символів за хвилину. визначте, скільки байтів інформації він встигне опрацювати за зо хв безперервного читання. врахуйте,...
nazarovamarish nazarovamarish  16.09.2019 17:10
Нформаційний обсяг набраного на комп ютері тексту становить 3,5 кбайт. скільки символів містить цей текст? врахуйте, що інформаційна вага символу становить 8 біт. нужна...
KotenokLove10 KotenokLove10  17.09.2019 12:00
Напишите функцию, которая определяет сумму цифр переданного ей числа на системе c++...
ufvsjfhgdgkhdvj ufvsjfhgdgkhdvj  17.09.2019 12:00
Известно количество учеников во всех классах начальной школы: определите, насколько число учеников в самом многочисленном классе превышает число учеников в самом малочисленном...
Tusovik Tusovik  17.09.2019 11:31
Почему информационные технологии позволяют индивидуализировать процесс обучения и как они реализовать потребности в самообразовании людей?...
missislera2017 missislera2017  17.09.2019 11:31
24 ! 10предложений что такое информатика подскажите...
viktoria168 viktoria168  17.09.2019 11:26
30 ! 14 , ! нужно написать в pascal abc программу для нахождения значений функции...
итд4 итд4  01.07.2019 09:40
Программа в паскале написать уменьшение положительного числа на 1 до тех пор,пока оно не станет отрицательным. как только число становится отрицательным,команда повторения...

Популярные вопросы