Интернет стал предметом первой необходимости. В немможно совершать покупки, общаться с друзьями, получатьобразование, работать. Возможности Интернета стали практически безграничными.
Говорят, без еды человек может прожить примерно 2 месяца (если будет пить), без воды человек погибает через 5-7 дней, а можно ли прожить без интернета??? Вы представляли когда-нибудь мир без Интернета?
Недавно, люди жили без великого творения - Интернет. Остается только удивляться: как? В последние годы, из информационного ресурса, Интернет превратился в незаменимую и очень важную часть нашей жизни. Работа, учёба, общение — всё связано с Всемирной Паутиной. Сеть перестала быть источником информации — теперь это поставщик услуг: увеселительных, образовательных.… Да любых. Чтобы скрасить одинокий вечер люди не идут в парк или кафе, они заходят в Интернет. Они ищут развлечений в электронной системе, а не среди живых людей.
Program n_1;
var i, b, k:integer; a: array [1..2000] of integer;
begin
writeln('Введите числа');
for i:=1 to 2000 do read(a[i]);
writeln;
writeln ('Числа, состоящие из 2 разрядов:');
for i:=1 to 2000 do begin
b:=a[i];
k:=0;
while b>0 do
begin
b:=b div 10;
k:=k+1;
end;
if k=2 then write(a[i], ' ');
end;
writeln;
writeln ('Числа, состоящие из 3 разрядов и кратные 3:');
for i:=1 to 2000 do begin
b:=a[i];
k:=0;
while b>0 do
begin
b:=b div 10;
k:=k+1;
end;
if k=3 then begin
b:=(a[i] mod 10) + ((a[i] div 10) mod 10) + ((a[i] div 100) mod 10);
if (b mod 3) = 0 then write(a[i], ' ');
end;
end;
end.
128 байт
64 бит
64 кб
=102 мб