Документ Word 2007 - в прилагаемом файле
Var x1, y1, x2, y2: real;
c:char;
begin
repeat
read(c);
until c='>';
read(c);
readln(x1,y1);
repeat
read(c);
until c='>';
read(c);
readln(x2,y2);
x1 := x1*x1 + y1*y1 - x2*x2 - y2*y2;
if (x1 > 0) then
writeln('2-я точка ближе')
else if (x1 < 0) then
writeln('1-я точка ближе')
else
writeln('Точки на одинаковом расстоянии')
end.
//Dev-C++ 4.9.9.2
//Пароль, как можно догадаться, UVAO-chan
#include <iostream>
#include <string>
using namespace std;
int main(){
string s,password;
cin>>password;
if(password!="UVAO-chan")return 0;
cin>>s;
cout<<s.length();
cin.get();
cin.get();
return 0;
}
Пример ввода:
UVAO-chan
124
Пример вывода:
3
По алфавиту! Буква "Г" - четвертая в алфавите; Буква "А" - первая; Буква "Р" - восемнадцатая; Буква "И" - десятая; Буква "Н" - пятнадцатая.
Вот и всё)
Const<span> N </span>= 10;
var
a: array[1..N] of integer;
i: byte;
b: integer;
begin
<span> </span>for<span> i</span>:=1 to<span> N </span>do
<span> </span>read(a[i]);
<span> </span>for<span> i</span>:=1 to<span> N </span>div 2 do begin
<span> b </span>:=<span> a</span>[i];
a[i] :=<span> a</span>[N-i+1];
a[N-i+1] :=<span> b</span>;
<span> </span>end;
<span> </span>for<span> i</span>:=1 to<span> N </span>do
<span> </span>write(a[i],' ');
<span> </span>writeln;
end<span>.</span>