Визначте, скільки бітів інформації містять наведене повідомлення. у шкільній бібліотеці 16 стелажів з книжками. на кожному стелажі 8 полиць. бібліотекар повідомив петрику, що потрібна книжка є на 5 стелажі на 3 згори полиці. шифр цезаря працює так: кожна буква у вихідному тексті замінюється третьою після нею буквою в алфавіті, літери якого вважаються записаними по колу. розшифруйте слово тсдкжспозррв, зашифроване цим шифром. *********************** зробіть будь-ласка ці завдання, мені дуже потрібно: * дякую: )

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

uses graphabc;

var x,y: integer;

begin

setwindowsize(400,400);

centerwindow;

x: =windowwidth div 2-40;

y: =x+40;

setpencolor(clblack);

setpenwidth(2);

setbrushcolor(clltgray);

ellipse(x-55,y-45,x+55,y+43);

setpencolor(clwhite);

setbrushcolor(clblack);

circle(x,y+8,30);

setpencolor(clblack);

line(x-50,y+42,x+64,y+42);

line(x-55,y+48,x+60,y+48);

line(x-50,y+42,x-55,y+48);

line(x+50,y+42,x+85,y-40);

line(x+60,y+48,x+92,y-30);

floodfill(x,y+45,clltgray);

setbrushcolor(clltgray);

circle(x+105,y-45,20);

floodfill(x+62,y+38,clltgray);

setpenwidth(3);

line(x+95,y-64,x+85,y-80);

line(x+115,y-64,x+125,y-85);

setpencolor(clwhite);

setbrushcolor(clwhite);

circle(x+98,y-45,4);

circle(x+112,y-45,4);

setpencolor(clblack);

setbrushcolor(clblack);

circle(x+98,y-45,3);

circle(x+112,y-45,3);

arc(x+105,y-40,10,220,320);

end.

0

moreanswers

эксперт

37091 / 29110 / 5898

регистрация: 17.06.2006

сообщений: 43,301

28.12.2015, 19: 23

нарисовать улитку

нарисовать рисунок

нарисовать улитку паскаля

как в чатре нарисовать улитку паскаля, к примеру для параболы я делаю

графика. нарисовать улитку

вот рисунок,

ответ:

объяснение:

const

  max_elements = 1000;

  a = 1;

  b = 15;

  first_file_name = '1.txt';

  second_file_name = '2.txt';

var

  i, j, n, r: integer;

  p: real;

  ar: array[1..max_elements] of integer;

  f1, f2: text;

begin

  randomize;

  writeln('input n = ');

  readln(n);

  for i: =1 to n do begin

    ar[i]: =random(b-a+1)+a;

  end;

  assign(f1, first_file_name);

  rewrite(f1);

  for i: =1 to n do begin

    writeln(f1, ar[i]);

  end;

  close(f1);

  assign(f2, second_file_name);

  rewrite(f2);

  for i: =1 to n do begin

    p: =1;

    for j: =1 to i do

      p: =p*ar[j];

    writeln(f2, p: 0: 0);

  end;

  close(f2);

  readln;

end.