1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a:array[1..100]of integer;
i,n:integer;
begin
writeln('skolko elementov?');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
for i:=n downto 1 do
write(a[i]:3);
end.
1) m:=54; n:=16
m=n? Нет ⇒ m>n? Да ⇒ m:=m-n (54-16=38)
Ответ: m=38
2) Циклический алгоритм
a:=1; b:=0;
b=4? Нет ⇒ b:=b+1 (1); a:=2*a (2);
b=4? Нет ⇒ b:=b+1 (2); a:=2*a (4);
b=4? Нет ⇒ b:=b+1 (3); a:=2*a (8);
b=4? Нет ⇒ b:=b+1 (4); a:=2*a (16);
b=4? Да.
Ответ: а=16; b=4
Var i,j,n,m:integer;
a:array[1..100] of integer;
begin
Read(n);
for i:=1 to n do
for j:=1 to n do
begin
if cos(sqr(i)+n)>0 then m:=m+1;
End;
write(m);
<span>End.</span>
1} 136 - не может получиться (если это 13 и 6, то первая сумма больше второй; а если это 1 и 36, то 36 нельзя получить как сумму 2-х цифр)
2} 712 - может получиться (например для числа 257)
3} 215 - не может получиться (если это 21 и 5, то первая сумма больше второй; если это 2 и 15, значит средняя цифра должна быть <=2, но тогда нельзя получить 15 как сумму средней и младшей цифр)
4} 10 - не может получиться (первая сумма больше второй)
5} 621 - не может получиться (21 нельзя получить как сумму 2-х цифр)
6} 619 - не может получиться (19 нельзя получить как сумму 2-х цифр)
Ответ: 1