phung khac bac linh

Mọi người làm thử bài này!

Sao mình làm không thấy giống đáp số?

Đáp số đúng mà! Dễ thấy A,B,C thẳng hàng (C nằm giữa). Lực tác dụng lên A sẽ bằng hợp lực của B và C tác dụng lên A. Tương tự với B và C.
Bạn thử tính lại xem!

Bài I:Nhập số nguyên n:
1. Tính tổng các chữ số của nó.
2. Đếm số lượng chữ số 0 của n.
3. Tìm chữ số đầu tiên.
4. Tìm số có giá trị lớn nhất.
5. Đếm xem có bao nhiêu chữ số có giá trị nhỏ nhất.

Bài II:
Tìm số đảo ngược Y của một số X, biết Y gồm các chữ số của X và viết theo thứ tự ngược lại.

Bài I: Các câu 1,2,3 có thể dùng chương trình sau:

program bai1;
uses crt;
type bignum = string;
var n:bignum;
Function tccs(n:bignum):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to length(n) do
s:=s+ ord(n[i]) - 48;
tccs:=s;
end;
Function sls0(n:bignum):integer;
var i,dem:integer;
begin
dem:=0;
for i:=1 to length(n) do
if n[i]='0' then dem:=dem+1;
sls0:=dem;
end;
begin
clrscr;
writeln('nhap n: '); readln(n);
writeln('tong cac chu so la: ', tccs(n));
writeln('so luong so 0 la: ',sls0(n));
writeln('chu so dau tien la: ',ord(n[1])-48);
readln
end.

Còn 2 câu 4,5 kia thì chỉ cần tạo 2 cái Function nữa là xong, 1 Function tìm số lớn nhất, 1 Function đếm số lượng số nhỏ nhất. Cái này bạn tự suy nghĩ nha .

Bài II:

program bai2;
uses crt;
type bignum=string;
var n:bignum;
i:integer;
begin
clrscr;
write('nhap X: ');
readln(n);
writeln('Y la: ');
for i:=length(n) downto 1 do
write(n[i]);
readln
end.

tức là UCLN(10;11)=1
không biết có đúng không X_X

Cái này giống UCLN(10;2) hơn. II = 2.

Nên di chuyển sao cho nó trở thành UCLN(11,1) thì nghe vẻ hợp lí hơn .

Bt pascal m.n ơi
viết chương trình tính tiền điện vs các khoản sau
-tiền thuê bao điện kế 1000/tháng
-định mức sdụng là 50kw/tháng vs giá 500d/tháng
-phần điện vượt mức dk tính giá như sau:
+nếu vượt định mức <50kw =>700d/tháng
+........................... >50kw đến 100kw => 1000d/tháng
+............................ >100 kw => 1500d/tháng
nhập vào từ bàn phím chỉ số công tơ của tháng trước và chỉ số công tơ của tháng sau
p/s
bài ni mh làm mãi mà k dk
mh nghĩ phần tính giá vượt định mức nên sdụng case..of nạk
k bít thế nào
m.n giúp tớ ha

Thử chương trình này xem có đc ko nha:

program tinh_tien;
uses crt;
var m,n,s,t:integer;
begin
clrscr;
write ('nhap so cong to dien thang truoc:'); readln(m);
write ('nhap so cong to dien thang sau:'); readln(n);
s:=n-m;
case s of
0..50: t:= 1000 + s*700;
51..100: t:=1000 + 35000 + (s-50)*1000;
else
t:= 1000 + 35000 + 50000 + (s-100)*1500;
end;
write ('so tien can phai tra la:',t);
readln
end.

câu 84 đáp án C nha,còn lại bạn đúng,bạn giải cho mình vs nhá.thanks.Bạn coi câu 90 trong file ak nhen>> đáp án là B mà t ko giải được

Ừ nhầm! câu 84 đáp án C. Mà tình hình là file đính kèm down về ko mở đc. Up lên MF đi. Hoặc là gửi vào mail của mình ấy .