Я незнаю прости. может другие помогут
Var k, j, sum:integer;
n,i:longint;
prev,cur, found :boolean;
s:string;
Begin
read(n,k);
for i := 2 to n do begin
s := inttostr(i);
sum := 0;
for j := 1 to length(s) do
sum := sum + strtoint(s[j]);
cur := (sum mod k) = 0;
found := found or (prev and cur);
if prev and cur then
writeln(i - 1,' ',i);
prev := cur;
end;
if not found then writeln('NO');
End.
Program z;
var a:integer;
begin
writeln ('введите отметку'); read (a);
case a of
2: writeln ('неудовлетворительно');
3: writeln ('удовлетворительно');
4: writeln ('хорошо');
5: writeln ('отлично');
end;
<span>end.</span>
Выравнивание по левому краю: Ctrl+L
Выравнивание по правому краю: Ctrl+R
Выравнивание по центру: Ctrl+E
Выравнивание по ширине: Ctrl+J
Жирный: Ctrl+B
Курсив: Ctrl+I
Подчеркнутый: Ctrl+U
Верхний индекс: Ctrl+Shift+ (знак +)
Нижний индекс: Ctrl+ (знак =)
<span>Изменение регистра символов: (скорее всего просто нажать на данную кнопку)</span>
<span>A16 == </span>BF2D+ACAB = 16<span>BD8
</span>A7 == 534*65 = 51666
A9 == <span>40052-28716 </span>= 10235
Если интересно как , то самый простой способ :
1) переводим из 16,7,9 в 10;
2)выполняем действия ("+" "*" "-" );
3)Переводим назад в указанные СС (16,7,9)