Var
i:integer;
x:real;
begin
x:=10000;
while x<20000 do
begin
x:=x*1.05;
i:=i+1;
end;
writeln('Ответ: ',i);
end.
Program n1;
var a,p: real;
i: integer;
begin
p:=1;
for i:=1 to 10 do
begin
readln(a);
if a<0 then p:=p*a;
end;
writeln(p);
end.
<span>2. Insert
3. Delete
5. Caps Lock
6. Alt
8. Num Lock
11. Home
15. End</span>
В 3 вопросе нужно брать спутник (1 мастер) так как это в данном случае дешевле ,по качеству тоже будет получше