Sunday, March 16, 2025
Saturday, March 15, 2025
Valentine's Day songs
2025
1. "Baby Elephant Walk" by Henry Mancini & his Orchestra.
2. "Likhe Jo Khat Tujhe" by Mohammed Rafi.
3. "Lollipop" by The Chordettes.
4. "Pyar Hua Ikraar Hua" by Manna Dey & Lata Mangeshkar.
5. ''We Belong Together" by Ritchie Valens.
2026 NO
maybe 2027
Bollywood romantic collection:
https://youtube.com/playlist?list=PLi0Cmaabhckhg0lbRAqzO3ur6EK4z4TVj&si=Mw3lq-IIEEsxymj1
1 Mere samne wali khidki (Kishore Kumar)
2 Beqarar karke hume (Hemant Kumar)
3 Main kahi kavi na (Mohammed Rafi)
4 Jhanak jhanak tori (Manna Dey)
5 Suhana safar aur yeh (Mukesh)
Monday, March 10, 2025
Draft of task№139
program Task139;
var A, B, C, Pmax,
res, S_sq, S_tr,
small_triangles,
S_h, hole_side : Int64;
begin
writeln ('Hello World');
res := 0;
Pmax:=999999;
for A:=1 to Pmax do
begin
for B:=A + 1 to Pmax do
begin
for C:=B + 1 to Pmax do
begin
if (A + B + C <= Pmax) and (A*A + B*B =C*C) then
begin
S_sq:= C*C;
S_tr:= Trunc(A*B/2);
small_triangles:=Trunc(S_sq/S_tr);
S_h:= S_sq - small_triangles*S_tr;
hole_side := Trunc(sqrt(S_h));
if C mod hole_side = 0 then inc(res);
end;
end;
end;
end;
writeln(res);
Readln;
end.
Sunday, March 9, 2025
Pythagorean Tiles (num 139) for next week
Let
For example,
Given that the perimeter of the right triangle is less than one-hundred million, how many Pythagorean triangles would allow such a tiling to take place?
Thursday, March 6, 2025
Report fake TikTok recruitment
Hello , dear support serviceman,
There is a SMS-message from fake TikTok recruiter came to me! It contains a dangerous WhatsApp link: https://wa.me/380972917761?sfs=h8a2G6MlVW
The number where sms came from:
+224 629 62 18 10
Please, check this link and block it as soon as possible to avoid fraudulency in WhatsApp!
Wednesday, March 5, 2025
Collatz solution's Draft (Project Euler №14)
program Hello;
var n: Int64;
maxsteps, steps : smallint;
begin
writeln ('Hello World');
//steps := 1;
n := 0;
maxsteps := 0;
for n := 2 to 13 do
begin
steps := 1;
while (n <> 1) do
begin
if odd(n) then n:= 3*n+1
else n:= trunc(n/2);
inc(steps);
end;
if steps > maxsteps then maxsteps := steps;
end;
writeln(maxsteps);
end.
Dbf не чіпаємо, маніпуляції тільки з itab
1. Dbf tab містить ВСІ 67-68 полів, Ztab - тільки ті 25-45 полів що використовуються в продовженні ресурсів, їх і копіюємо Dbf не редагува...
-
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 ...
-
Код для отс/прс пашет. Упростить, причесать, закомментировать, сдать, мигрировать в продуктив, возлюбить tome management data
-
Дочесать код В прод4 посмотреть по табельному наработки старших товарищей; переслать код

