На уроке физкультуры математик Виктор выполнял подъём с переворотом. Придя домой, он задумался, могут ли числа выполнять то же упражнение? Подъёмом для чисел Виктор считает операцию замены каждой цифры в числе на следующую по значению (9 заменяется на 0), а переворотом - запись числа справа налево (ведущие нули отбрасываются). Подъём выполняется до переворота. Виктор записывает число ему определить, что получится после применения подъёма с переворотом к этому числу. Поскольку результат может оказаться очень большим, Виктора интересуют только его последние M цифр. Формат ввода
В первой строке вводится натуральное число N, длина которого не превышает 100000 цифр. Во второй строке вводится натуральное число M ≤ 100000.
Формат вывода
Программа должна вывести результат подъёма с переворотом, или последние его M цифр, если в результате более M цифр.
Пример 1
Ввод Вывод
123
3
432
Пример 2
Ввод Вывод
1799
3
82
смотри, каждая, кроме В, используется любое количество раз..
значит В (первая буква) идут стрелки (а) (с) (д) (е) (ф)(вторая буква)
из каждой буквы идёт ещё стрелки из а идет стрелок (а) (с) (д) (е) (ф)
из с идет а) (с) (д) (е) (ф)
из д идет а) (с) (д) (е) (ф)
из е идет а) (с) (д) (е) (ф)
из ф идет а) (с) (д) (е) (ф) (это третья буква)
осталась ещё одна буква и также из каждой буквы идут все, кроме В потому что В используется один раз и она у нас на первом месте.
это мы посчитали сколько слов можно составить с буквой В
теперь также, но с другими буквами. не забывай что В используется один раз
потом всё складываешь и вот тебе ответ
var a,b,a1,b1:real;
var s,s1:real;
begin
WriteLn('Введите все катеты через пробел:');
Read(a,b,a1,b1);
s:=a/2*b;
s1:=a1/2*b1;
WriteLn(s);
WriteLn(s1);
if s = s1 then
WriteLn('Треугольники равновелики')
else if s>s1 then
WriteLn('Площадь первого треугольника больше на '+(s-s1))
else
WriteLn('Площадь второго треугольника больше на '+(s1-s));
end.
2)
var a,b:Integer;
var arr:array of char;
begin
arr:=ReadString().ToCharArray();
for var i:= 1 to 6 do
if(i<4) then
a+= strtoint(arr[i-1])
else
b+= strtoint(arr[i-1]);
if a=b then
WriteLn('Билет счастливый')
else
WriteLn('Билет не счастливый');
end.