Ответы на вопрос:
Var a,a1,a2: integer; begin writeln ('vvedi cislo'); read (a); a1: =a div 1000; a2: =a1 mod 10; writeln (a2); end.
Популярно: Информатика
-
ИНФОРМАТИКА Дизайн (тему) презентации можно выбрать во вкладке- а) переход...
opamaks2312.12.2020 14:30 -
Что может быть потеряно при визуализации данных? в каких случаях используют...
nikitafonarik0521.02.2020 04:57 -
Паскаль, 10 класс. В файле записаны данные о собаках: в каждой строчке...
адамиммими123.08.2020 04:20 -
Написать на языке паскаль програму для ввода 2х чисел а1 и а2 и найти сумму...
sashasevsova01.11.2020 09:38 -
Решить надо а) х1 и ( не х2 или х3) б) х1 и х2 или не х1 и х3 в) х4 и (...
Виктория678904518.04.2022 06:30 -
Определите сумму четырехзначного числа в турбо паскаль...
Amina515518.04.2020 09:59 -
На полке стоят книги. книга э. успенского «крокодил гена и его друзья»...
2156kolllokir14.05.2021 18:40 -
На одной чашке весов лежат 8 яблок, а на другой – 3 ананаса. если добавить...
ruslananabok18.02.2021 07:42 -
Составить по данным блок-схемам. сейчас работаем на python. 9 класс. 15...
3eбpa25.02.2021 18:57 -
Почему документ в форме док в разных расширениях меньше чем в пдф? пд...
Нікіта111102.04.2022 06:57