2)program 2;
var
k:integer;
<span>
tmp:real;</span><span>
b:string;</span><span>
c:string;</span><span>
i:integer;
</span>
begin
<span>
k:=0; i:=0; tmp:=0;</span><span><span>
write('</span>Введите k:');</span><span>
read(k);</span><span>
repeat</span><span>
tmp:=exp(i*ln(10));</span><span>
str(tmp:0:0, c);</span><span>
b:=b+c;</span><span>
i:=i+1;</span><span>
until length(b) >= k;</span><span>
c:=copy(b, k, 1);</span><span>
writeln(b);</span><span>
writeln('k-я цифра:', c);</span><span>
readln(k);</span>
<span>end.</span>
#include <stdio.h>
int main()
{
int i, j, n;
printf (“Введите n: “);
scanf (“%d”, &n);
for(i = 1; i <= n ; i++) {
for(j = 1; j <= n ; j++) {
printf (“%5d”, i * j);
}
printf(“\n”);
}
return 0;
<span>}</span>
Soni Vegas pro
photohop plus
YouTyb
Windovs 10
вот и всё
256000 бит/с = 32000 байт/с = 31.25 кбайт/c
<span>375 / 31.25 = 12 секунд </span>