Я надеюсь вы в 5 классе ...
var i: integer;
sum:real;
begin
sum:=0;
for i:=1 to 50 do
sum:=sum+1/i;
writeln(sum);
<span>end.</span>
Способы противодействия компьютерным вирусам можно разделить на несколько групп:
· профилактика вирусного заражения и уменьшение предполагаемого ущерба от такого заражения;
· использование антивирусных программ, в том числе для обезвреживания и удаления известного вируса;
· обнаружение и удаление неизвестного вируса.
<span />
Ты о чем? я не понимаю суть твоего вопроса, напиши в коментарии к ответу
3/256 Мбайта = 1024*3/256 Кбайт = 12 Кбайт = 12*1024 байт = 12*1024*8 бит
Память для одного символа = 12*1024*8 / 6144 = 16 бит
Мощность алфавита = 2^16 = 16384
procedure vvod(var a, b, c: integer);
begin
readln(a);
readln(b);
readln(c);
end;
procedure min(const a, b, c: longint; var d: longint);
var
i: longint;
begin
d := a;
if d > b then
d := b
else
if d > c then
d := c;
end;
procedure sum(const ch:longint;var z:longint);
begin
z := z + ch;
end;
var
a, b, c, d, f, z: integer;