tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу в паскалеabc,
Напишите программу в паскалеabc, выводящую n-ую цифру в последовательности натуральных чисел : вводится число n до 100 при решении этой нельзя использовать любой из видов условной инструкции if. вывести надо только ответ
MiracleOne
1 11.08.2019 21:00
1
Ответы
sumanrahmatova
04.10.2020 12:03
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
var n:=ReadInteger('n=');
Writeln(1.To((n+10) div 2).JoinIntoString('')[n]);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
snejanas1
09.06.2019 09:20
Написать операторы, которые посчитают и перемножат числа, кратные 5, на интервале от 73 до 299...
Лиля177
09.06.2019 09:20
Определите значения логических переменных a, b, c, d, если: 1) а и (лондон - столица ) - истинное высказывание; 2) b и (лондон - столица ) - ложное высказывание; 3) c или...
DKNRMLLY
09.06.2019 09:20
Сколько единиц в таблице истинности итоговой функции ? (х v y) λ с над иск черточка и над игриком черточка...
angel66613666
09.06.2019 09:20
Сколько нулей в таблице истинности итоговой функции ? (а v в) λ с над в черточка...
veraveta
09.06.2019 09:20
Для какого из имён истинно высказывание : не (первая буква гласная) или не (последняя буква согласная)михаил емеля иван александр александра никита...
radif01
22.04.2020 07:06
Программа Блокнот относится к 1. пользовательскому уровню поддержки 2.аппаратному уровню поддержки 3.програмному уровню поддержки...
333ч
22.04.2020 07:04
Определите зна ченте переменой а после выполнения алгоритма.В ответе укажите одно целое число значение переменой а. а=20 b=1...
ОTВЕT
29.04.2020 06:05
Определите значение переменной S после выполнения фрагмента программы при указанных значениях a. Нужно подробное решение, а не только заполнить таблицу, последние p,s,p 0...
7gklass2017
29.04.2020 06:05
Укажите недостающее понятие: Человек – мозг = 1)компьютер …2)Мышь3)Процессор4)Сканер5)Монитор...
savallll
29.04.2020 06:05
Тест по информатике даю 50 болов...
Популярные вопросы
Выполните задания 1) 25х-9y :2) 975 . 253) 99994) 9995) Найдите а +b ,...
3
Согласны ли вы с утверждениями, что Цезарь - выдающийся полководец Римской...
1
Рівняння швідкості тіла має вигляд : U=4+10t. Запишіть рівняння руху тіла,...
1
Это есть у всех людей и большинства домашних животных. Напишите точный...
1
Правление в Риме Во для сравнения Республика Параграф 46 Диктатура Параграф...
1
Как меняется Коста в общении с четвероногими друзьями.? в рассказе Багульник...
3
Найти углы прямоугольного треугольника,если угол между биссектрисой и высотой...
2
Задать 6 во к тексту на французском Интернет в нашей повседневной жизни....
3
Help my friends ya vashe xz...
1
Гипоплазия эмали наследуется как сцепленный с Х-хромосомой - доминантный...
2
begin
var n:=ReadInteger('n=');
Writeln(1.To((n+10) div 2).JoinIntoString('')[n]);
end.