1. caps Lock;
3. del (delete);
4. backspace
7. pause
9. ctrl
10. tab
12 <span>Scroll Lock</span>
13 esc
14 enter
16 PgDn (Page Down)
Var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
<span>end.</span>
Добавляйте качественное вложение у 1 птицы видны только ноги)))
1 страус,2 пеликан,3 пингвин,4 попугай
птица НЕ плавает 1,4
птица плавает И летает 2
птица летает ИЛИ плавает 2,3,4
птица плавает И НЕ летает 3
птица летает И НЕ плавает 4
птица НЕ летает И НЕ плавает 1
Дурацкая по своей трудоемкости задача, если делать её вручную.
А если написать полную программу и вставить туда счетчик вызовов F(n), то окажется, что для вызова F(6) процедура будет вызвана 97 раз. При каждом вызове выводится звездочка, поэтому их будет выведено тоже 97.
<em><u>Проверка выполнялась по следующей программе:</u></em>
var
k:integer;
procedure F(n: integer);
begin
writeln('*');
k:=k+1;
if n > 0 then begin
F(n - 3);
F(n - 2);
F(n div 2);
F(n div 2);
end
end;
begin
k:=0;
F(6);
Writeln(k)
end.