100(5) = 1*5^2 = 25(10)
100(3) = 1*3^2 = 9(10)
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ArrGen(17,i->real(i+1)); s.Println;
(s[10:]+s[9::-1]).Println
end.
<u>Пример</u>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
11 12 13 14 15 16 17 10 9 8 7 6 5 4 3 2 1
дано:
v=2¹⁰*10³бит/сек(скорость)
t=16сек(время)
s=?(обьем файла)
s=2¹⁰*2³*5³*2⁴/2¹³=5³*2⁴=16*125=2000кб
Var
n1,n2,r,k,i:integer;
begin
Randomize;
k:=0;
for i:=1 to 7 do
begin
n1:=random(90)+10;
n2:=random(90)+10;
write(n1,' + ',n2,' = ');
readln(r);
if r=n1+n2 then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
98 + 59 = 157
18 + 99 = 117
23 + 47 = 70
16 + 21 = 35
38 + 62 = 100
16 + 81 = 97
54 + 28 = 82
k = 6
Пол =”д” И Рост > 178 И Год рождения < 2000.
ОТВЕТ НОМЕР ДВА