Ну...Вообще компьютер изначально был создан для хранения, обработки информации, но не для этого...Ну ладно, ближе к теме...
Я думаю, что интернет был создан для получения более объёмной информации. Короче напиши, что то вроде этого:
Для получения информации ( описываешь какую), затем пишешь: для отправки sms/mms ну и т.д..
Удачи)
Слово, я думаю что это верный ответ пока
Var i,j,p :integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(20)+1;
writeln(a[i]);
end;
writeln('Массив по возрастанию');
for i:=1 to 10 do
for j:=1 to 10 do begin
if a[i]<a[j] then begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;end;
for i:=1 to 10 do
writeln(a[i]);
writeln('Массив по убыванию');
for i:=1 to 10 do
for j:=1 to 10 do begin
if a[i]>a[j] then begin
p:=a[i]; a[i]:=a[j]; a[j]:=p; end;end;
for i:=1 to 10 do writeln(a[i]);
readln;end.<span>
</span>
Program Qwerty123777;
uses crt;
var
x,y:real;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа находит значение функции y=(2x-4)/(3xx+11)');
write('Введите значение х '); readln (x);
y:=(2*x-4)/(3*x*x+11);
writeln('*** Вычисляю... ***');
writeln('y=', y:8:2); ;
end.
Var
s: string;
rus, eng, cif: set of char;
i, r, e, c: integer;
begin
rus := ['Ё', 'ё', 'А'..'Я', 'а'..'я'];
eng := ['A'..'Z', 'a'..'z'];
cif := ['0'..'9'];
write('Введите текст: ');
readln(s);
for i := 1 to length(s) do
begin
if s[i] in rus then inc(r);
if s[i] in eng then inc(e);
if s[i] in cif then inc(c)
end;
writeln('Русских букв: ', r);
writeln('Английских букв: ', e);
writeln('Цифр: ', c)
end.