tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать поограмму в pascal
Написать поограмму в pascal abc. дано 5 значное число выделить 2,3,4 цифру и выяснить является нечетным. зарание .
skrlp1234
2 04.06.2019 05:50
1
Ответы
MiSTiKA23
05.07.2020 09:53
Var a:integer;
b:boolean;
begin
readln(a);
writeln(a div 10 mod 1000);
if a mod 2 <> 0 then b:=true;
writeln(b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Пелагея9087
14.05.2020 16:57
Запиши фрагмент программы с использованием другого оператора цикла....
Ротср
14.05.2020 16:58
решить задание, фото которое прикреплено, а также 1. Определить, какое количество раз выполнится оператор цикла? for X:=10 to 12 do Y=X*X; а) ни разу б) один в) два г) три 2. Определите...
Урлатоп
15.09.2020 10:20
Составьте. технику безопасности использования любой бытовой техники на ваш выбор...
поварешка1
15.09.2020 10:58
Выполните действия: a. 110010+11,01b. 1111001-1101c. 10101,1*11d. 10101110:101...
marusy552
01.06.2019 06:50
Не сходиться с кол - во значащих нулей в двоичной записи числа 184,125...
kknopcka
07.03.2019 11:42
80 , 9 класс, номер 7. с кумиром. я не понимаю, как задать цикл, чтобы программа именно через две пустых клеточки закрашивала...
жыландыыыы
07.03.2019 11:44
Дано два натуральных числа а и в. найти первые 10 чисел, которые больше а и взаимно просты с в. с++....
незнакомка1232
07.03.2019 12:01
ответьте на вопросы по информатике, 1. для чего компьютеры объединяют в сети? 2. какая сеть называется локальной? 3. с чего компьютеры объединяются в локальную сеть? 4. какие бывают...
Новичок221112
07.03.2019 12:04
Унас будет контроша} с массивами...
домашка68
07.03.2019 12:13
Логическое выражение: f = a^b v b^c v (не)a^b. отрицание относится только к а....
Популярные вопросы
Сколько новых крупных фрагментов мусора появилось в том году, когда Китай сбил...
2
як школяр повинен охороняти природні багатства водойм...
1
умоляю мне у меня кр сейчас если можно от с объяснением большое...
2
Фраза Народ стравили означает необъяснимость жестокости. Приведите приведите примеры...
3
Можно ли считать мцыри «естественным человеком»?...
1
Алгоритм підготовки до самостійної роботи 7 клас...
3
Какие произведения можно привести к аргументам в сочинение «Нужны ли в жизни сочувствие...
1
Из Воспоминаний С.Ю.Витте ответить на во...
2
Укажите коэффициент: 0,7a_5b...
2
Разложите многочлен на множители (x+1)²-25...
3
b:boolean;
begin
readln(a);
writeln(a div 10 mod 1000);
if a mod 2 <> 0 then b:=true;
writeln(b);
end.