Даны натуральные числа m и n.Получить число состоящее из m последних чётных цифр числа n. Написать программу на Паскале только на Паскале.
10-11 класс
|
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.
Строки - хорошие вещи =)
Другие вопросы из категории
различных сигналов можно передать при запуске 4 сигнальных ракет, если в запасе имеются ракеты 5 различных цветов( ракет различного цвета неограниченное кол-во, цвет ракет в последовательности может повторятся)
Читайте также
a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).
Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)
определить, верно ли, что данное число кратно 3.
31, мм - целое число из диапазона от 1 до 12, а гг - целое число из диапазона от 1 до 2020 (если какая-то часть формата нарушена, то данная подстрока в качестве даты не рассматривается.) Заменить каждую дату сообщения на дату следующего дня. Написать программу на Паскале. Сроооооооооооооочнооо. Пооожалуйста.....