#include <iostream>
using namespace std;
int main() {
double x1, y1, x2, y2;
cout << "x1 = ";
cin >> x1;
cout << "y1 = ";
cin >> y1;
cout << "x2 = ";
cin >> x2;
cout << "y2 = ";
cin >> y2;
if (x1 * x1 + y1 * y1 < x2 * x2 + x1 * x1) {
cout << "(" << x1 << "; " << y1 << ")";
} else {
cout << "(" << x2 << "; " << y2 << ")";
}
return 0;
}<span />
1. 16-57, 8-127, 2-1010111
2. 58
3. 817
UPD
__________
Var
a,b,s,i:integer;
begin
readln(a,b);
if a <> b then
for i:=1 to abs(b) do s:=s+a
else for I:=1 to abs(b) do s:=s+a;
if (a<0) and (b<0) then s:=abs(s)
else if b<0 then s:=-s;
writeln(s);
end.
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('->').ToWords.Where(w->w.Right(2)='ая').Println
end.
<u>Результат</u>
-> Я самая обаятельная и привлекательная в этом классе
самая обаятельная привлекательная
Program pyati;
var a:integer;
begin
Writeln('Введите число');
Readln(a);
a:=a div 100;
a:=a mod 100;
a:=a mod 10;
Writeln(a)
end.