1)Это с помощью while
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
while i<p do
begin
c:=c * a;
inc(i);
end;
writeln(c);
readln;
end.
2) Это с помощью repeat
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
repeat
c:=c * a;
inc(i);
until i=p;
writeln(c);
readln;
end.
3) Это с помощью for
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1;
for i:=1 to p do
c:=c * a;
writeln(c);
readln;
end.
Program n1;
var a,v,p,s: real;
begin
write('введите рост: ');
readln(a);
write('введите возраст: ');
readln(v);
write('введите признак(1 - мужчина, 0 - женщина): ');
readln(p);
if p=1 then s:=(3*a-450+v)*0.25+45;
if p=0 then s:=(3*a-450+v)*0.225+40.5;
writeln('идеальный вес: ',s);
end.
Program geron;
var A,b, c,p,s:real;
begin
readln(a,b, c);
p:=0.5*a*b*c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь треугольника: ',s);
end.
1)
IP 9. 102. 202. 52
маска 255. 255. 240. 0
адрес 9. 102. 192. 0
---------------------------------------------
в адрес сразу записываем выделенные полностью соответствующие байты (первый и второй байты) байтам маски =255 (255(10сс) = 1111 1111 (2сс))
последний байт маски =0, он "гасит" всё, и в адресе будет 0.
----------------------------------------------
остался один третий байт.
202 и 240
202 (10сс) = 128+64+8+2=2^7 + 2^6+2^3+2^1 = 1100 1010 (2cc)
240 (10cc) = 128+64+32+16=2^7+2^6+2^5+2^4=1111 0000 (2cc)
--------------------------------------------------
поразрядная конъюнкция:
1100 1010 * поразрядно
1111 0000
----------------
1100 0000 =2^7 +2^6 =128+64= 192 (10cc) - искомое значение третьего байта в 10сс.
Комп'ютерний вірус - вид шкідливого програмного забезпечення, здатного впроваджуватися в код інших програм, системні області пам'яті, завантажувальні сектори, а також поширювати свої копії по-різному.
Антивірусна програма - спеціалізована програма для виявлення комп'ютерних вірусів, а також небажаних програм і відновлення заражених такими програмами файлів і профілактики
бувають віруси
Віруси-маскувальники - Rootkit. ...
Віруси - шпигуни - Spyware. ...
Зомбі - Zombie. ...
Рекламні віруси - Adware. ...
антивіруси: AVG AntiVirus Free. Популярный бесплатный антивирус с простым интерфейсом. ...
Avira Free Security Suite. ...
Bitdefender Antivirus Free Edition. ...
Comodo Internet Security. ...
Avast Free Antivirus. ...
Kaspersky Free. ...
Panda Free Antivirus. ...