Var k,n:integer;
begin
write('k = (k кратно 3) ');
readln(k);
n:=k div 3 mod 10;
writeln(k,'-я цифра последовательности 101102103…149150 = ',n);
end.
Пример:
<span>k = (k кратно 3) 27
27-я цифра последовательности 101102103…149150 = 9</span>
Var a,b,c:integer;
begin
readln(a, b);
c:=a+b;
writeln(c);
end.
Семёнов математика.Иванов физика.Борисов информатика.
Esc: (от escape - выходить,убегать) эскёйп
enter: (входить) э'нтэр
shift: (смена,изменить) шифт
capslock: (заглавные буквы и защищать) капс лок
control: (сокращение ctrl - управлять,контроль) контрл
alt: (от alternative - выбор) альт
backspace: (возвращаться,назад на один символ) бэк спэйс
delete: (сокращение del - удалить) дэли'т
insert: (вставить) инсэ'рт
home: (домой) хоум
end: (конец) энд
pageup: (сокращение pgup - страница вверх) пэйдж ап
pagedown: (сокращение pgdn - страница вниз) пэйдж да ун (без пробела)
numlock: (от number lock - число и защита) нам лок