Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]=' ' then dem:=dem+1;
writeln(dem+1);
readln;
end.
N = int(input("Nhập số trạm y tế: "))
P = [int(p) for p in input("Nhập số hòm thuốc đã nhận cho mỗi trạm, cách nhau bởi dấu cách: ").split()]
# Tính số hòm thuốc cần phân phát cho mỗi trạm
total = sum(P)
each = total // N
remain = total % N
# Tính số giờ cần để phân phát hòm thuốc đầy đủ cho mỗi trạm
times = [0] * N
for i in range(N):
# Tính số hòm thuốc cần chuyển đến trạm lân cận
need = each
if i == 0 or i == N-1:
need += remain
# Tính số giờ cần để chuyển đủ hòm thuốc cần thiết
if P[i] >= need:
times[i] = 0
else:
hours = 0
left = need - P[i]
if i > 0:
# Chuyển hòm thuốc sang trạm trước đó
prev = min(left, each)
left -= prev
hours += prev
if left > 0:
# Chuyển hòm thuốc sang trạm sau đó
if i < N-1:
next = min(left, each)
left -= next
hours += next
if left > 0:
# Chuyển hòm thuốc sang trạm trước đó nữa trong trường hợp trạm hiện tại là trạm cuối cùng
prev = min(left, each)
left -= prev
hours += prev
times[i] = hours
# In kết quả
for i in range(N):
print("Trạm", i+1, "nhận đủ số hòm thuốc sau", times[i], "giờ.")
Bài 10:
uses crt;
var a,b:array[1..10000]of longint;
i,n,dem,j,dem1:longint;
kt:boolean;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
b[1]:=a[1];
for i:=1 to n do
begin
kt:=true;
for j:=1 to dem do
if b[j]=a[i] then kt:=false;
if kt=true then
begin
dem:=dem+1;
b[dem]:=a[i];
end;
end;
writeln(dem);
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to n do
if b[i]=a[j] then dem1:=dem1+1;
writeln(b[i],' xuat hien ',dem1,' lan');
end;
readln;
end.
const fi='bt1.inp';
fo='bt1.out';
var f1,f2:text;
a,b:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
writeln(f2,'Chu vi la: ',(a+b)*2);
writeln(f2,'Dien tich la: ',a*b);
close(f1);
close(f2);
end.
const fi='hinhtron.inp';
fo='hinhtron.out';
var f1,f2:text;
a:array[1..100]of real;
i,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
for i:=1 to n do
writeln(f2,'Hinh tron thu ',i,': Chu vi la ',(2*a[n]*pi):4:2,' va Dien tich la: ',a[n]*a[n]*pi:4:2);
close(f1);
close(f2);
end.
Để thêm thông tin ngày sinh của các nhạc sĩ, ca sĩ vào CSDL, bạn cần thêm một trường mới vào bảng "nhacsi" và bảng "casi" để lưu trữ thông tin ngày sinh. Bạn có thể đặt tên cho trường này là "ngaysinh" hoặc tên tương tự để thể hiện thông tin ngày sinh của các nghệ sĩ.
Sau khi thêm trường "ngaysinh" vào bảng "nhacsi" và "casi", CSDL sẽ có cấu trúc như sau:
Bảng casi:
idcasi (khóa chính)
tencasi
ngaysinh
Bảng banthuam:
idbanthuam (khóa chính)
idbannhac
idcasi
Bảng bannhac:
idbannhac (khóa chính)
tenbannhac
idnhacsi
Bảng nhacsi:
idnhacsi (khóa chính)
tennhacsi
ngaysinh
Sau khi thực hiện thay đổi này, bạn có thể lưu trữ thông tin ngày sinh của các nhạc sĩ, ca sĩ vào CSDL và sử dụng nó cho việc quản lí và truy vấn dữ liệu liên quan đến thông tin ngày sinh của các nghệ sĩ một cách dễ dàng.
*Ý tưởng đưa ra:
TH1: Nếu số người bạn đến dự sinh nhật là lẻ thì Mai có thể cắt chiếc bánh theo đường kính (Mai cũng có thể cắt theo bán kinh nhưng theo đường kính sẽ giảm 1/2 số lần cắt bánh). VD hình minh họa (N=3):
TH2: Nếu số người bạn đến dự sinh nhật là chẵn thì Mai bắt buộc phải cắt chiếc bánh theo bán kính. VD hình minh họa (N=2) :
Lời giải:
Program hotrotinhoc;
var n: integer;
Begin
write('Nhap so nguoi ban den du sinh nhat cua Mai :'); readln(n);
if n mod 2=1 then write('Mai can cat ',n/2:1:0,' de moi nguoi duoc 1 mieng bang nhau') else write('Mai can cat ',n,' de moi nguoi duoc 1 mieng bang nhau');
readln
End.
var n:longint;
begin
readln(n);
if n mod 2=1 then write((n+1) div 2) else write(n);
readln;
end.