CT
0
K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
DT
5 tháng 3 2022
INP: 150 hóa đơn
OUT: Tổng số tiền của 150 hóa đơn
Thuật toán
B1: Nhập các số tiền hóa đơn a[1],a[2],...,a[150]
B2: t←0; i←1;
B3: Nếu i<=n thì in ra tổng số tiền và kết thúc
B4: t←t+a[i]; quay lại bước 3
B5: i←i+1; quay lại bước 3.
*Viết chương trình
program hotrotinhoc;
var i,t: longint;
a: array[1..150] of longint;
begin
for i:=1 to 150 do
begin
write('Nhap hoa don so ',i ,':'); readln(a[i]);
end;
t:=0; i:=1;
while i<=n do
begin
t:=t+a[i];
i:=i+1;
end;
write('Tong so tien la : ',t);
readln
end.
TN
6 tháng 3 2022
Bn coppy bàu khác qua đây hả mik thấy giống y chang, vs lại n là gì vậy
9 tháng 4 2023
program sach_cua_hieu;
const
MAX_LOAI_SACH = 1000;
MIN_SO_LUONG = 1;
var
loai_sach: array[1..MAX_LOAI_SACH] of integer;
so_luong: array[1..MAX_LOAI_SACH] of integer;
n: integer;
i, max_so_luong, loai_sach_nhieu_nhat: integer;
begin
write('Nhập số loại sách: ');
readln(n);
for i := 1 to n do
begin
write('Nhập số lượng sách của loại ', i, ': ');
readln(so_luong[i]);
loai_sach[i] := i;
end;
max_so_luong := MIN_SO_LUONG;
loai_sach_nhieu_nhat := 1;
for i := 1 to n do
begin
if so_luong[i] > max_so_luong then
begin
max_so_luong := so_luong[i];
loai_sach_nhieu_nhat := i;
end;
end;
writeln('Loại sách còn nhiều nhất là loại ', loai_sach[loai_sach_nhieu_nhat]);
writeln('Số lượng còn lại là ', max_so_luong);
end.
10 tháng 4 2023
program Psmcg;
uses crt;
var don_gia, so_luong, tong_tien, phi_giao_hang: integer;
begin
write('Nhap so luong san pham: ');
readln(so_luong);
if so_luong <= 20 then
begin
don_gia := 50000;
end
else
begin
don_gia := 40000;
end;
tong_tien := don_gia * so_luong;
if tong_tien > 2000000 then
begin
phi_giao_hang := 0;
end
else
begin
phi_giao_hang := 15000;
end;
tong_tien := tong_tien + phi_giao_hang;
writeln('So tien khach hang phai thanh toan la: ', tong_tien);
readln;
end.
8 tháng 2 2022
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.