Var K, M, H: longint;
Begin
WriteLn('Введите номер секунды');
ReadLn(K);
H:=K div 3600;
M:=(K-H*3600) div 60;
K:=K-H*3600-M*60;
WriteLn('Прошло часов: ', H, '; минут: ', M, '; секунд: ', K);
Sleep(5000);
End.
var
x1, x2, y1, y2, r1, r2, d, b, x3, x4, y3,y4,x,y, h, a: real;
begin
readln(x1, y1, r1, x2, y2, r2);
d := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
if (d > r1 + r2) or (d < abs(r1 - r2)) then writeln('No intersection point')
else if (x1 = x2) and (y1 = y2) then if (r1 = r2) then writeln('Infinity') else writeln('No intersection point')
else begin
b := (r2 * r2 - r1 * r1 + d * d) * 0.5 / d;
a := d - b;
h := sqrt(abs(r1 * r1 - sqr(b)));
x := x1 + (x2 - x1) * a / d;
y := y1 + (y2 - y1) * a / d;
X3 := X - (Y - Y2) * H / B;
Y3 := Y + (X - X2) * H / B;
X4 := X + (Y - Y2) * H / B;
Y4 := Y - (X - X2) * H / b;
writeln(x3, ' ', y3);
if(x3<>x4)or(y3<>y4) then
writeln(x4, ' ', y4);
end;
end.
Var n:integer;
x:real;
begin
n:=0;
x:=300000;
while x<550500 do
begin
x:=x+0.11*x;
n:=n+1;
end;
writeln(n);
readln;
end.
Ответ:
Объяснение:
Решение смотри на прикрепленном фото
<u>1. Вот так это нужно решать по-современному</u>
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln('k=',ArrRandom(15,1,20).Println.Count(x->x>10))
end.
<u><em>Тестовое решение</em></u>
4 16 14 9 11 18 17 14 14 15 1 1 9 10 15
k=9
<u>2. А вот так учат решать в школе...</u>
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
var
a:array[1..15] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:=1 to 15 do begin
a[i]:=Random(20)+1;
Write(a[i],' ');
if a[i]>10 then k:=k+1
end;
Writeln;
Writeln('k=',k)
end.
<u><em>Тестовое решение:</em></u>
18 15 7 6 3 3 10 6 6 15 2 16 16 2 12
k=6