uses crt;
var x:array[1..100]of integer;
n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('X[',i,']='); readln(x[i]);
end;
dem:=0;
for i:=1 to n do
if x[i] mod 2=0 then inc(dem);
writeln('So phan tu chan la: ',dem);
readln;
end.
Mọi người giúp em với ạ chiều em phải nộp rồi 🙆
Mọi người giúp em với ạ
free pascal nhập a, b, c bất kì. kiểm tra xem nó có là 3 cạnh của tam giác hay không, nếu không thì in ra màn hình ‘a, b, c khong la ba canh cua tam giac’. ngược lại thì in diện tích và chu vi của tam giác ra màn hình.
Viết chương trình Pascal, để nhập vào 2 số nguyên từ bàn phím. Tính tổng của 2 số đó.
(mọi người giúp em làm trên pascal với)
Mọi người ơi, giúp mình với!!!
Viết chương trình tính điểm trung bình môn tin học của em, với công thức
tính như sau: diemTB = (KtraHK*3 + Ktra1T*2 + Ktra15p + Ktra15p)/7
In ra màn hình điểm trung bình đó và thông báo xếp loại cho môn tin học theo yêu
cầu sau:
Nếu diemTB >= 8 : Giỏi
diemTB >= 6.5 và diemTB < 8: Khá
diemTB >= 5 và diemTB < 6.5: Trung Bình
diemTB >= 3.5 và diemTB < 5 : Yếu
diemTB < 3.5 : Kém
nếu đề bài chỉ cho số a, không nói a là số nguyên hay số thực thì mình có cần khai báo kiểu dữ liệu của a không mọi người ?
📢Mọi người ơi giúp mik với ạ. Mik đang cần gấp, sắp kiểm tra ạ. Cảm ơn trước ạ❤️
Viết chương trình tính tiền đi taxi. Biết: nhập vào số km. Tiền được tính như sau: từ km thứ 11 trở đi số tiền phải trả là 6000/km, dưới 11km số tiền phải trả là 7000/km.
Bài toán: Lan, Hà, Mai lần lượt có sô tuổi khác nhau, biết số tuổi của các bạn được nhập từ bàn phím. hãy viết chương trình in ra màn hình tổng số tuổi của ba bạn. giải hộ mình bài này với!!!
Viết chương trình tính hóa đơn mua hàng, nếu hóa đơn hơn 100000 đồng thì được giảm giá 10%.
Giúp tớ với mọi người ơi !!
