Чувак это не отака вирусов
збросить данные и это поможет
но придестся заново все скачивать или что у тебя там есть
Кате нужно вымыть посуду и сделать урки, что бы сходить в кино или пригласить друзей
__ жесткий диск
__ DVD-ROM
__ CD-ROM
__ дискета
In= I * X * Y, где
In - информационный объём памяти
I - глубина цвета
X*Y - кол-во точек изображения
In = 2*8*600*1200 = 11 520 000 бит = 1 440 000 байт = 1 406,25 Кбайт = 1,37 Мбайт
Ответ:
1)
Begin
Read(a);
S:=a mod 10+a div 10;
Writeln(s);
Writeln(a-s);
End.
2)
function Prost(a:longint):boolean;
var i:longint;
f:boolean;
begin
if a<2 then f:=false{первое простое=2}
else
begin
f:=true;{считаем что простое}
i:=2;
while (i*i<=a) and f do{пока счетчик меньше корня из числа и нет делителей}
if a mod i=0 then f:=false{если делитель, не постое}
else i:=i+1;{иначе дальше}
end;
Prost:=f;{результат true или false}
end;
Begin
Read(a,b);
For i:=a to b do
If Prost(i) then
Writeln(i);
End.
3)
Begin
Sum:=0;
For i:=1 to n do
If a[n] mod 3 = 0 then
Sum:=sum + a[n];
End.