Var X,Y,Xm,Ym:real;
Procedure ABC();
Begin
Repeat
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
if (x*x+y*y)>(Xm*Xm+Ym*Ym) then
Begin
Xm:=x;
Ym:=y
End
Until (X = 0)and(Y = 0)
End;
Begin
Xm:=0;
Ym:=0;
ABC;
WriteLn('(',Xm,',',Ym,')')
End.
Ну возможно почтовые сервисы, социальные сети, может форумы какие-нибудь.
var s: string;
begin
writeln('Напишите слово');
readln(s);
writeln('Первый символ: "', s[1], '" Второй символ: "', s[2], '" Последний символ: "', s[length(s)], '');
end.
Задание сделано в формате Эксель
Var
i,n,k:longint;
a:array [1..30000] of longint;
begin
n:=0;
for i:=1 to 30000 do
begin
read(a[i]);
if a[i]<>0
then n:=n+1
else break;
end;
for i:=1 to n do
begin
k:=0;
while a[i]<>0 do
begin
a[i]:=a[i] div 10;
k:=k+1;
end;
writeln(k,' ');
end;
end.