ROOM mới dành cho những người mới........

[mrjokes]

ban oi lam` giai thua kieu nay` du~ lieu nhap vao` be' lam' cung` lam la` dc 20 thui
tui dang lam` bai` nay` nhung co giao' bat' du lieu nhap vao` >100000000

[mrjokes]

co' ai giup' em tinh n! nhung n<100000000 voi'

[kickbuttowski]

ai đó giúp mình làm bài pascal này dc ko?
đề là thế này!
tìm tổng của các số nguyên tố từ 1 đến 100 (chỉ dùng câu lệnh for to do hoặc while do va mệnh đề if)
cô ở lớp cho mà mình ko làm dc! !!!!
mong là co bạn nào đó giúp mình ! xin cảm ơn!

[seaspirit8xqb]

Giải giúp mình bài này với nhập xâu in ra xâu đảo ngược

[seaspirit8xqb]

Giải bài này luôn giúp mình cái:
Có 7 thùng đựng đầy gạo , 7 thùng đựng 1 nửa gạo , 7 thùng không đựng gì. Chia đều cho 3 người . Yêu cầu 3 người có số gạo = nhau , số thùng bằng nhau . sư phụ nào giải thì giải dễ hiểu tí nha em mới học lớp 9 thôi ak..

[mrjokes]

bai` tra loi cho kichbuttowki
ban lam 1 ham kiem tra nguyen to
sau do for tu 1->100 neu nguyen to thi +
day la loi giai cua minh
Function nt(x:longint):boolean;
var e:longint;
begin
nt:=false;
For e:=2 to trunc(sqrt(x)) do
If x mod e=0 then exit;
nt:=true;
end;
BEGIN
d:=0;
For i:=1 to 100 do
If nt(i) then d:=d+i;
write(d);
END.

[mrjokes]

bai nay de thoi
BEGIN
write(nhap xau');
Read(s);
For i:=length(s) downto 1 do
write(s[i]);
END.

[mrjokes]

Ai giup em bai tru 2 so nguyen lon cho nhau voi.

[kickbuttowski]

thanks mrjokes nhung minh chi hoc o trinh do lop 8 thui ak!
du` sao cung cam on ban da jup minh

[kickbuttowski]

hinh nhu co van de!
ket qua ra du 1 so!
ban coi lai jum minh nha