Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
fistahka336
03.11.2022 12:17 •
Информатика
Даны натуральные числа m и n.получить число состоящее из m последних чётных цифр числа n. написать программу на паскале только на паскале.
Показать ответ
Ответ:
artemkovalev1
21.06.2020 04:14
Var m, n, i: integer;
a, b: string;
begin
readln(m);
readln(n);
a := inttostr(n);
for i := 1 to length(a) do
if (strtoint(a[i]) mod 2 = 0) then b := b + a[i];
for i := 0 to m - 1 do write(b[length(b) - i]);
end.
Строки - хорошие вещи =)
0,0
(0 оценок)
Популярные вопросы: Информатика
lenasavostyanova
28.10.2022 04:37
Паскаль: дано n чисел, найти среднее арифметическое положительных из них...
KinezyOldside
27.09.2020 20:59
Записи адреса web-страница хронящейся на сервере интернета зарегистрированна в домене верхнего уровня ru домене второго уровня schools и имеющем собственным именем...
DanilBeast
02.07.2022 22:51
В процессе преобразования растрового графического изображения количество цветов увеличился с 16 до 65584. Во сколько раз изменился объем занимаемой памяти и как?...
Котенька0209
22.05.2023 02:56
Завдання 2. У Женитри 3 друга (Кирило, Ілля Максим) і жодного слайма. У Кирила - 5 слаймів, у Іллі - 7, у Максима - 3. КирилоМаксим подарували. Жені по одному слайму,...
sddssddd
12.11.2022 19:06
Що таке друкована публікація чим вона відрізняється від електронної?...
медвва
23.10.2020 13:33
В кодировке кои 8каждый символ кодируется 8битами иван написал текст в нем нет лишних пробелов липа сосна лиственница береза дуб деревья средней полосы при этом размер...
ДианочкаР
05.08.2021 10:14
Составьте программу для КуМира Вариант 7...
keram1it228
23.03.2022 16:53
Вычислить сумму натуральных четных чисел, не превышающих N. Программу составьте двумя используя цикл с предусловием и цикл с постусловием. Значение N нужно задать самостоятельно....
bopoh234567
26.07.2021 06:34
Текстовым документом называют1.представленкую на каком-либо носителе информацию2.представленную на каком-либо носителе информацию в текстовой форме3.информацию в текстовой...
Jamalove
19.02.2020 09:18
Написать программу для решения задачи: определите и выведите на экран количество трехзначных чисел кратных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, b: string;
begin
readln(m);
readln(n);
a := inttostr(n);
for i := 1 to length(a) do
if (strtoint(a[i]) mod 2 = 0) then b := b + a[i];
for i := 0 to m - 1 do write(b[length(b) - i]);
end.
Строки - хорошие вещи =)