Question

xin giúp đỡ TỔ ONG Tổ ong bao gồm nhiều ô giống nhau hình lục bát. Các ô này để ở, chứa mật, sáp, ong non, . . . Ban đầu ong xây một ô. Sau đó xây tiếp các ô kề cạnh với ô ban đầu, làm thành lớp thứ hai, sau đó xây tiếp các ô kề cạnh với ô ở lớp thứ hai, làm thành lớp thứ 3, . . . Người ta tìm thấy một tổ ong lớn có tới n lớp. Hãy xác định số ô của tổ ong tìm thấy. Dữ liệu: Vào từ file văn bản BEEHIVE.INP gồm một dòng chứa số nguyên n (1 ≤ n ≤ 10⁹). Kết quả: Đưa ra file văn bản BEEHIVE.OUT một số nguyên – số lượng ô trong tổ ong. Ví dụ:

BEEHIVE.INP	BEEHIVE.OUT
4	37

ỐC SÊN Con ốc sên đang ở gốc của một cái cây cao v mét tính từ gốc. Ốc sên muốn bò lên ngọn cây để ăn những lá non trên đó. Ban ngày ốc sên bò được a mét lên trên, nhưng ban đêm, khi ngủ nó bị trôi xuống dưới b mét. Yêu cầu: Cho các số nguyên a và b, v (1 ≤ b < a ≤ v ≤ 10⁹). Hãy xác định số ngày cần thiết để ốc sên lên tới ngọn cây. Dữ liệu: Vào từ file văn bản SNAIL.INP gồm một dòng chứa 3 số nguyên a, b và v. Kết quả: Đưa ra file văn bản SNAIL.OUT một số nguyên – kết quả tìm được. Ví dụ:

SNAIL.INP	SNAIL.OUT
2 1 5	4

Answer 1

tổ ong

var S,N:int64;
f:text;
Begin
assign(f,'BEEHIVE.INP');
reset(f);
readln(f,N);
close(f);
if N=1 then S:=1
else S:=1+6*((N-1)*N div 2);
assign(f,'BEEHIVE.OUT');
rewrite(f);
writeln(f,S);
close(f);
end.

ốc sên

uses crt;
const
fi='SNAIL.INP';
fo='SNAIL.OUT';
Var a,b,v,x:longint;
f:text;
Begin
clrscr;
assign(f,fi);reset(f);
readln(f,a,b,v);
close(f);
x:=(V-a)div(a-b)+1;
if (V-a)mod(a-b)<>0 then inc(x);
assign(f,fo);rewrite(f);
writeln(f,x);
close(f);
end.

trên là 1 cách giải xin mọi người cho cách khác