<span>Информационная деятельность – деятельность, обеспечивающая сбор, обработку, хранение, поиск и распространение информации, а также формирование информационного ресурса и организацию доступа к нему.</span>Информация всегда играла чрезвычайно важную роль в жизни человека. Кто владеет наибольшим объемом информации по какому-либо вопросу, тот всегда находится в более выигрышном положении по сравнению с остальными. Общеизвестно высказывание о том, что тот, кто владеет информацией, тот владеет и миром.С давних времен сбор и систематизация сведений об окружающем мире помогали человеку выживать в нелегких условиях – из поколения в поколение передавался опыт и навыки изготовления орудий охоты и труда, создания одежды и лекарств. Информация постоянно обновлялась и дополнялась – каждое изученное явление позволяло перейти к чему-то новому, более сложному.Со временем большие объемы данных об окружающем мире поспособствовали развитию научно-технического прогресса и, как следствие, всего общества в целом – человек смог научится управлять различными видами вещества и энергии.<span>С течением времени роль информации в жизни человека становилась все существеннее. Сейчас, в первой половине XXI века роль информации в жизни человека является определяющей – чем больше навыков и знаний он имеет, тем выше ценится как специалист и сотрудник, тем больше имеет уважения в обществе.</span>
Program ZZZ;
var z,s:integer;
begin
writeln('введите число < 65000');
readln(z);
s:=0;
while z>0 do
begin
z:=z div 10;
s:=s+1;
end;
writeln (s,'-значное число');
<span>end.
2 и 3 задачи в одной
program ZZZ;
var i,z,s:integer;
begin
writeln('введите число < 65000');
readln(z);
s:=0;
write ('делители введенного числа: ');
for i:=1 to 65000 do
begin
if z mod i =0 then
begin write (i,', ');s:=s+1; end;
end;
writeln;
if s=2 then writeln ('введенное число - простое') ;
<span>end.
</span></span>
===== PascalABC.NET =====
begin
var a := ArrGen(42, i -> 7 * i, 1);
a.Println
end.
Вот смотри на рисунок вроде так
Var a,b:integer; l:boolean;
begin
write('a = ');
readln(a);
l:=true;
while (a<>0) do
begin
b:=a;
write('a = ');
readln(a);
if (a<>0)and(a<=b) then l:=false;
end;
writeln(l);
end.
Пример 1:
a = 3
a = 6
a = 9
a = 4
a = 0
False
Пример 2:
a = 3
a = 6
a = 7
a = 0
True