tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Не могу составить программу, уже
Не могу составить программу, уже весь мозг перевернул, через pascal присвоить целой переменной d четвертую от конца цифру в записи положительного целого числа x (например, если x=34517, то d=4)
sidikreal
2 03.08.2019 03:10
0
Ответы
1greg
30.09.2020 06:04
Program Project;
uses
crt;
var
x,d: integer;
begin
clrscr;
write('x=');
readln(x);
d:=(x div 1000) mod 10;
writeln('d=',d);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Klamie
27.04.2020 14:57
Составить блок-схему. Ввести число и возвести его в квадрат. Повторять операцию до тех пор, пока результат не станет больше 1000. Вывести полученное значение. 5. Ввести...
fhdsjkfalhd
27.04.2020 14:57
Посчитай сколько байт информации содержат 20 кб? Посчитай сколько байт информации содержат 32 бит очееень надо...
Malıw
27.04.2020 14:58
Напишите программу, которая определяет, есть ли среди цифр числа X цифра Y. X и Y вводятся с клавиатуры (например если введем с клавиатуры 2368 и 5 то программа должна...
Quartz11
27.04.2020 14:58
Дан фрагмент электронной таблицы 2 строчка =(B1-A1)/2=2-А1/2=(С1-А1)*2-4 дан фрагмент электронной таблицы (С1+2)/(А1+4)=2*А1/(С1+2)=3/(С1-В1)...
Mаs9n9
27.04.2020 14:57
ответить на во Какая информация может быть расположена на слайде презентации? 2. Какова особенность технологии гипертекста? 3. Каковы основные этапы создания презентаций?...
Alexgk13
22.05.2020 13:48
Всем привет! Сколько бит информации содержится в этом тексте, если он закодирован в 16-битной кодировке?...
edakovagfffgg
22.05.2020 13:48
10. Яке комп ютерне меню не існує?сA) КонтекстнеС (С.Б) ВисячеB) СпливаючеГоловне дякую всiм кто залишiть вiдповiдь...
КаринаМандарина12
21.05.2020 14:01
практическая идёт решить не могу умоляю балов...
mit210404
22.05.2020 13:47
Какие типы алгоритмов существуют?ПрямыеЛинейныеС ответвлениямиС повторениямиС ветвлениями...
ритуля51
22.05.2020 13:47
4. Результати розв язування задачі можуть бути подані в таких формах: а) описова6) якіснав) повнаг) графічна...
Популярные вопросы
Мастер за 6 часов сделал 504 одинаковых деталей а его ученик за...
3
3аргумента для сохранения озонового слоя...
3
Что может меняться при взаимодействии тел ?...
1
За 3ч. работы один экскаватор вынул 555 м земли. сколько кубических...
3
Как проверит окончание слово стоянке и полустанке...
3
Роза стоит 84 рубля, а гвоздика - в 2 раза меньше. на сколько дороже...
3
Сколько процентов число 12 состовляет от числа : 120; 18; 2,4...
3
Морфологический разбор слова ячмень....
3
Найдите значение выражения 2,3×5/4×0,8+1,7×3/11×3целых 2/3...
3
Где применяются знания о клетке ? нужно перечисление например в...
3
uses
crt;
var
x,d: integer;
begin
clrscr;
write('x=');
readln(x);
d:=(x div 1000) mod 10;
writeln('d=',d);
end.