var f,i: integer; begin for i: =1 to 5 do f: =-f*i; write(f); end. вбей в паскаль и он выведет тебе значение f                 &n... Подробнее

нужно рассмотреть 2 треугольника в которые входят эти диагонали. ... Подробнее

№1var a,b,c,sr_arf: real; beginwriteln('введите значение a: '); readln(a); writeln('введите значение b: '); readln(b); writeln('введите значение c: '); readln(c); sr_arf: =(a+b... Подробнее

определим объем памяти на 1 лыжника.  лыжников 240, т.е.  k=240. 240 – не степень числа 2. найдем число, большее 240 и являющееся степенью 2. это 256, т.е.  n=256. n... Подробнее

1024/8=128 байт -размер сообщения 10+128=138 номер посл.байта ответ: 138... Подробнее

x mod 2=... Подробнее

решение:   n  =  2i    =    65536             i  =   16 бит            ко... Подробнее

1.var a,b,c: real; beginread(a,b,c); wrteln((a+b+c)/ 3); end.2. a=[tex]2 + \frac{b}{c} [/tex]b=[tex] \frac{4}{2a - |b| + 5} [/tex]c=[tex] \sqrt{ {a}^{2} + b \times b } [/tex]... Подробнее

бант-бинт-бунт-бакс-суша-сажа-коса... Подробнее

1. program ostatok; uses crt; var a,b,ost: real; begin write('a= '); readln(a); write('b= ); readln(b); ost: =a mod b; write('ostatok ot delenia a na b raven ',ost); readl... Подробнее

var d,r: integer; beginwriteln('введите значение r: '); readln(r); d: =2*r; writeln('d = ',d); end.... Подробнее

в стране вообразилия живут люди добрые, умные, отзывчивые, но в то же время и скромные. у них все в стране необычно, как-то наоборот. метро ходит не под землей, а над землей. что... Подробнее

все просто:   всю программу писать не буду. вы должны сами понять и переписать (не скопировать).   1. как создать массив вы знаете (пусть будет переменная"a") 2. затем... Подробнее

график посторить здесь не смогу но начни с пикселя и т.д... Подробнее

табак,кабак,бензобак,рыбак... Подробнее

var a: integer; begin for a: =1 to 10 do writeln(a,'^3=',sqr(a)*a); end.... Подробнее

var s: string; i: integer; c: char; beginreadln(s); readln(c); while pos(c,s)< > 0 do begininc(i); delete(s,pos(c,s),1); end; writeln(i); end.... Подробнее

var a,b,c: integer; begina: =2; b: =6; c: =a+b; writeln(c); end.значение "c" будет равняться 8.... Подробнее

проще, "средства ввода информации в компьютер".... Подробнее

I= log_2(128) = 7 бит на символ 7*10 = 70 бит... Подробнее