Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
x,y: real;
begin
readln(x);
y: =7*sin(x)*sin(x)-0.5*cos(x);
writeln(y);
end.
триста восемьдесят девять миллиардов,триста шестьдесят пять миллионов, четыреста две тысячи, двести один.
x - информационный вес одного символа
n - мощность алфавита (кол-во символов)
размер содержащейся в тексте информации находим по формуле:
k - кол-во символов в тексте
амазонка
- один символ несет 8 битов (1 байт)
- байт в письме амазонки
омега:
один символ несет 7 битов
байт в письме омеги
program risovalka;
uses crt,graphabc;
var xc,yc,r1,r2,rc,ro,n,i,x,y: integer;
a: real;
begin repeatwrite('ykashi shislo otverstii ot 5 do 10 n=');
read(n);
until n in [5..10];
clrscr; hidecursor;
xc: =windowwidth div 2;
yc: =windowheight div 2;
r1: =40;
r2: =120;
rc: =100; ro: =30;
a: =2*pi/n;
circle(xc,yc,r2);
circle(xc,yc,r1);
for i: =1 to n do begin x: =xc+round(rc*cos(a*i));
y: =yc-round(rc*sin(a*i));
circle(x,y,ro);
Популярные вопросы