Сравните личные и бархатные напильники по количеству зубьев на 10 мм длины.

у личных зубьев больше, чем у бархатных

у бархатных зубьев больше, чем у личных

у личных и бархатных количество зубьев одинаковое

у бархатных напильников зубья отсутствуют

пишу сразу двоичный код

1)5,5

2)8,8

3)9,8

4)11,6

5)12,6

6)12,7

7) 11,7

8)11,2

9)9,2

10)9,3

11)10,3

12)10,4

13)7,4

14)7,2

15)5,2

16)5,3

17)6,3

18)6,9

19)7,9

20)7,8

21)2,8

22)2,9

23)3,9

24)3,6

25) 4,5

program nm13; uses crt; var s1,s2,d,a,diag: real; beginwriteln('vvedi ploschad kruga i ploschad kvadrata'); readln(s1); readln(s2); d: =2*sqrt(s1/3.14); a: =sqrt(s2); diag: =2*sqrt(2*a*a); if diag> d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate ');

readln;

end.

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('індексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.

type

person=record

fam: string;

imya: string;

day: integer;

end;

var

a: array[1..50] of person;

i,n,z: integer;

begin

write('n='); readln(n);

for i: =1 to n do

begin

write('fam-'); readln(a[i].fam);

write('imya-'); readln(a[i].imya);

write('day-'); readln(a[i].day);

end;

write('z-'); readln(z);

for i: =1 to n do

if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);

readln;

end.