с информатикой! Нужно очень

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

var f1,f2,f3:text;

   n,i,a,b:integer;

begin

//создадим исходные файлы, можно вынести в отдельную программу

//или создать файлы вручную

randomize;

assign(f1,'f1.txt');

rewrite(f1);

assign(f2,'f2.txt');

rewrite(f2);

write('Сколько чисел ввести в первый файл n=');

readln(n);

writeln('Содержание файла f1:');

a:=1;

for i:=1 to n do

begin

 a:=a+random(5);

 write(f1,' ',a);

 write(' ',a);

end;

writeln;

write('Сколько чисел ввести во второй файл n=');

readln(n);

writeln('Содержание файла f2:');

a:=1;

for i:=1 to n do

begin

 a:=a+random(5);

 write(f2,' ',a);

 write(' ',a);

end;

writeln;

reset(f1);

reset(f2);

assign(f3,'f3.txt');

rewrite(f3);

//если не конец файла, то читаем числа иначе создаем барьер из

//максимально возможного целого числа

if not eof(f1) then read(f1,a) else a:=maxint;

if not eof(f2) then read(f2,b) else b:=maxint;

while (a<maxint) or (b<maxint) do//пока оба файла не кончились

begin

 if (a<=b) and (a<maxint) then //если 1<=2

  begin

   write(f3,' ',a);//1 пишем в файл 3

   if not eof(f1) then read(f1,a) else a:=maxint;//если не конец 1,

                                                 //то читаем следующее , иначе барьер

 end

 else if b<a then //иначе если 2<1 то же но со 2 файлом

  begin

   write(f3,' ',b);

   if not eof(f2) then read(f2,b) else b:=maxint;

 end;

end;

reset(f3);//смотрим что получилось

writeln('Слияние файлов:');

while not eof(f3) do

begin

 read(f3,a);

 write(' ',a);

end;

close(f1);

close(f2);

close(f3);

end.

Объяснение:

Вроде бы так, я не слишком в этом хорош.

ответ:

а) какую величину на руси измеряли ведрами?

ведром в древней руси измеряли объем.

основная дометрическая мера объема жидкостей – ведро = 1/40 бочки = 10 кружек = 30 фунтов воды = 20 водочных бутылок (0,6) = 16 винных бутылок (0,75) = 100 чарок = 200 шкаликов = 12 литров.

деление на более мелкие меры проводилось по двоичному принципу: ведро делили на 2 полуведра или на 4 четверти ведра или на 8 получетвертей, а также на кружки и чарки.

б) что измеряют галлонами? баррелями? в каких странах используются эти единицы измерения?

баррель — это старинная единица измерения объёма жидкости.

американский нефтяно́й ба́ррель — единица измерения объёма нефти, равная 42 галлонам, или 158,988 л. интересно, что баррель для измерения прочих жидкостей в америке вмещает только 31,5 галлона.

галло́н — мера объёма, обычно используется для жидкостей, в редких случаях — для твёрдых тел.

американский галлон и галлон различаются: американский галлон = 3,785 литра; галлон = 4,546 литра.

баррель (около 159 л) и галлон (около 4 л), как меры объема в основном используют в и сша.

в) на емкостях иностранного производства иногда встречается такое обозначение объема: 100cl (100 сантилитров). выразите этот объем на принятых в россии единицах.

1 сантилитр равно 0.01 литр

1 литр равно 100 сантилитр