идентификатор в паскале

[TOMMY666]

И ЕЩЕ СКАЖИЕ ГДЕ ВОТ ЭТИ НАХОДЯТСЯ, А ТО Я ИХ ПОТЕРЯЛ

59(е). Даны действительные числа x, y. Определить, принадлежит ли
точка с координатами следующей области: треугольник с вершинами (-
2, 0), (0, 1), (0, -1) в обьединении с полукругом x*x+y*y=1 (
x>=0).
67(г). Дано натуральное число n (n<=100). Найти первую цифру
числа n.

[ROMA2PVT]

http://www.programmersforum.ru/showthread.php?t=92457
Ну ващееееееееее!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!Да батенька склероз то у вас уже не первой стадии.

[Филантроп]

ЕЩЕ СКАЖИЕ ГДЕ ВОТ ЭТИ НАХОДЯТСЯ, А ТО Я ИХ ПОТЕРЯЛ

господи, это ж каким долб...ом надо быть(((((((((((

[ROMA2PVT]

господи, это ж каким долб...ом надо быть(((((((((((

ВО во!И не говори.

[TOMMY666]

Сообщение от Филантроп

200

uses crt;
var ma:array[1..100] of integer;
i,n,k,a:integer;
begin
readln(n);
for i:=1 to n do
readln(ma[i]);
k:=0
readln(a)
for i:=1 to n do
begin
if ma[i]=a then begin k:=i;break;end;
writeln(k);
readln;
end.

201а

uses crt;
var ma:array[1..100] of integer;
i,n,k:integer;
begin
readln(n);
for i:=1 to n do
readln(ma[i]);
k:=ma[1];
for i:=2 to n do
begin
if ma[i]>k then begin k:=ma[i];end;
writeln(k);
readln;
end;

- прям как в магазине!!!

кто это сделлал,напишите к этим двум программам пояснение

[TOMMY666]

Сообщение от Филантроп

255

uses crt;
var ma:array[1..100] of char;
i,n,k,a:integer;
begin
readln(n);
for i:=1 to n do
readln(ma[i]);
k:=0;
for i:=1 to n-1 do
if (ma[i] ='a') and (ma[i+1]='a') then begin k:=i;break;end;
writeln(k);
readln;
end.

260

uses crt;
var ma:array[1..100] of char;
i,n,k,a:integer;
begin
readln(n);
for i:=1 to n do
readln(ma[i]);
k:=0;a:=0;
for i:=1 to n do
if ma[i] =':'  then begin k:=i;break;end;
for i:=n downto k+1 do
if ma[i] =':'  then begin a:=i;break;end;
if a<>0 then
for i:=k+1 to a-1 do  
write(ma[i])
else for i:=k to n do
write(ma[i]);
readln;
end.

Кто это сделал, напиши к этим двум программам пояснение

[Stilet]

Один автор одна тема.
Закрываю.

[TOMMY666]

Филнтроп напиши пояснение к 200, 201а, 255, 260, пожалуйста.

[ColdKei]

Помогите, пожалуйста, перевести проги на язык Паскаль

Раз

int compare(int a, int b, int x, int y)
{ if ((a<x && b<y) || (a<y && b<x)) return 1;
return 0;
}



int main()
{
int a,b,c;
int x,y;
int temp=0;

cout<< "Enter a,b,c : ";
cin >> a >> b >> c;
cout<< "Enter x,y : ";
cin >> x >> y;

temp= compare(a,b,x,y) + compare(a,c,x,y) + compare(b,c,x,y) ;

if(temp) cout << "Possible";
else cout << "Impossible";


fflush(stdin);
cin.get();
return 0;
}

Два

int a[5];
int n=5;

for (int i=0; i<5; i++)
{ cout << "a[" <<i+1<<"] = ";
cin>>a[i];
}



for (int i=0; i<n; i++)
{ int flag = 0;

for (int j=0;j<n;j++) if (a[i] == a[j] && i != j) flag++;

if (!flag) { for (int k=i;k<n-1;k++) a[k] = a[k+1]; n--; }

}


cout << "\n\n\n";

for (int i=0; i<n; cout<<"a["<<i<<"] = "<< a[i++] << endl) ;