Program HOC24;
var t,n,s,d: integer;
begin
d:=1; s:=1; t:=0;
while d<100 do
begin
t:=t+2;
s:=s+t;
d:=d+1;
end;
write(s);
readln
end.
Program HOC24;
var t,n,s,d: integer;
begin
d:=1; s:=1; t:=0;
while d<100 do
begin
t:=t+2;
s:=s+t;
d:=d+1;
end;
write(s);
readln
end.
viết chương trình nhập 1 dãy số .sau đó đếm xem có bau nhiêu số chẵn.
help mình vs free pascal mình cần gấp!!!!
Viết chương trình con trong pascal in ra số nguyên tố có hai chữ số chẵn. Giúp với ạ mik đang cần gấp!!
giúp mình bài này với ạ dùng pascal nha với làm theo chương trình con nữa ạ
in ra tất cả các số nguyên tố đối xứng có k chữ số, với k được nhập từ bàn phím (1<=k<=9)
Vd: k=3
101,131,151,181,191,313,...
Làm bằng pascal nha mn giúp mình
Viết ct giải nén xâu:
Input | Output |
(AB)2(QXA)3 | ABABQXAQXAQXA |
pascal nha! mình cảm ơn
Viết chương trình nhập vào dãy gồm N số tìm các đoạn con có tổng bằng K
và in tất cả ra màn hình
Input | Output |
15 15 2 3 10 7 8 6 5 2 8 9 17 -2 0 5 10 | 2 3 10 7 8 5 2 8 17 -2 0 5 10 |
10 15 1 2 3 4 5 6 7 8 9 15 | 1 2 3 4 5 7 8 15 |
làm bằng pascal nha mọi người giúp mình
giúp mình gấp với, mình đang kiểm tra :((
Mình cần gấp tí
Đề bài nói tóm gọn là: Có 1<n<100 thí sinh tham gia và có 4 vòng thi
Sau khi thi 4 vòng thì các thí sinh có số điểm là (1<n<40) và các số điểm đều nằm trong một dãy số
Nói chung là làm chương trình pascal in ra số lượng thí sinh có khả năng đăng quang vô địch, ko đc dùng procedure hay function, với số điểm lấy từ dữ liệu bên ngoài với lệnh assign
ví dụ: có 4 thí sinh có điểm là 35, 30, 15 và 35 thì có 3 thí sinh là có khả năng đăng quang
ng ta ko có cho số điểm tối thiểu để có khả năng đăng quang nên mình hơi rối
Viết ct nhập vào dãy gồm N số hãy in đếm số dãy con có tổng bằng 0
Input | Output |
6 -4 3 1 0 -2 5 | 2 |
Giải thích: có 2 dãy con có tổng bằng 0 là: {-4,3,1,0};{-4,1,-2,5}
giúp mình với