Bài 4. Sử dụng biến trong chương trình

cái này mới là đáp án đúng nè bạn:

uses crt;

var M,N,i,uoc,so:word;

function kt(i:word):boolean;

var dem,j:byte;

begin

dem:=0;

for j:=1 to i do

if i mod j=0 then dem:=dem+1;

kt:=dem=2;

end;

begin

clrscr;

write('nhap N:');readln(N);

write('nhap M:');readln(M);

uoc:=0;

if N>=M then so:=N else so:=M;

for i:=1 to so do

if (N mod i =0) and (M mod i =0) and (kt(i)=true) then uoc:=uoc+1;

if uoc<>0 then write(M,' va ',N,' la 2 so nguyen to tuong duong')

else write(M,' va ',N,' khong phai la 2 so nguyen to tuong duong');

readln;

end.

program bt;

uses crt;

var a,b:longint;

function ktsnt(h:longint):boolean;

var dem,i:byte;

begin

dem:=0;

for i:=1 to h do

if h mod i =0 then dem:=dem+1;

ktsnt:=dem=2;

end;

function ucln(a,b:longint):longint;

begin

while a<>b do

if a>b then a:=a-b else b:=b-a;

ucln:=a;

end;

begin

clrscr;

write('nhap so a:');readln(a);

write('nhap so b:');readln(b);

if (ktsnt(a)=true) and (ktsnt(b)=true) then

begin

if ucln(a,b)= 1 then write(a,' va ',b,' la hai so nguyen to tuong duong')

else write(a,' va ',b,' la hai so nguyen to nhung k tuong duong');

end

else if (ktsnt(a)=true) and (ktsnt(b)=false) then

write(a,' la so nguyen to nhung ',b,' k phai so nguyen to')

else if (ktsnt(a)= false) and (ktsnt(b)=true) then

write(b,' la so nguyen to nhung ',a,' k phai so nguyen to')

else write(a,' va ',b,' khong phai la so nguyen to');

readln;

end.

hình như mk đọc lộn nên bài này k đúng nhe bạn, sorry

program mang;

uses crt;

var

a: array[1..100] of integer

i,n:integer;

begin

clrscr;

write('nhap so phan tu n=');readln(n);

for i:=1 to n do

begin

write('nhap phan tu thu ',i');readln(a[i]);

end;

for i:=1 to n do

if a[i]>0 then write(a[i]);

readln;

end.

uses crt;

const tb=30000;

var tt, dg, sp: real;

ht, dc: string;

begin

clrscr;

write('Nhap ho ten khach hang: ');

readln(ht);

write('Nhap dia chi khach hang: ');

readln(dc);

write('Nhap don gia: ');

readln(dg);

write('Nhap so phut su dung: ');

readln(sp);

tt:=dg*sp+tb;

write('Quy khach phai tra: ',tt,' dong.');

readln

end.

Chúc em học tốt!

program TKB;

uses crt;

var T2, T3:string;

begin

clrscr;

write('Thu 2 co mon: '); readln(T2);

write('Thu 3 co mon: '); readln(T3);

readln;

end.

Mình ko chắc là đúng đâu nha! Bạn lên google tìm thử đi!

uses crt;

var X:string;

demtu,demdc,i:word;

begin

clrscr;

write('nhap cau van X:');readln(X);

writeln('so ki tu la:',length(X));

demtu:=1;

for i:=1 to length(X)-1 do

if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;

writeln('so tu la:',demtu);

demdc:=0;

for i:=1 to length(X) do

if X[i]=' ' then demdc:=demdc+1;

writeln('so dau cach la:',demdc);

readln;

end.

bài này mới đúng nè bạn:

uses crt;

var X:string;

demtu,demdc,i:word;

begin

clrscr;

write('nhap cau van X:');readln(X);

writeln('so ki tu la:',length(X));

X:=X+' ';

demtu:=0;

for i:=1 to length(X)-1 do

if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;

writeln('so tu la:',demtu);

delete(X,length(X),1);

demdc:=0;

for i:=1 to length(X) do

if X[i]=' ' then demdc:=demdc+1;

writeln('so dau cach la:',demdc);

readln;

end.

pascal chưa nhận được giá trị của h.

var a,b,c,P,S:real;

begin

write('nhap a: ');readln(a);

write('nhap b: ');readln(b);

write('nhap c: ');readln(c);

P:=a+b+c;

S:=a*a/2;

writeln('chu vi: ',P);

write('dien tich: ',S);

readln

end.

Vì là số đo cạnh tam giác nên bạn nên khai báo bằng kiểu dữ liệu real (số thực) thay vì integer (số nguyên).Phần giá trị biến S, vì a ứng với h nên \(\frac{ah}{2}=\frac{aa}{2}\)Xét tổng quan về nội dung cả hai chương trình này đều chưa đủ. Vì a=h => tam giác cần tìm diện tích và chu vi là tam giác vuông => phải thỏa mãn aa = bb + cc hoặc bb=aa+cc hoặc cc=aa+bb (định lí pitago)Nhưng trước hết, phải thỏa mãn bất đẳng thức tam giác: (dài lắm........ko viết đâu). Nếu bạn chưa học câu lệnh điều kiện thì chắc là 2 chương trình này đã đủ nội dung.

Vậy thì ........botay.com.vn.hemattroi

không có dấu chấm phẩy sau mỗi câu lệnh

chỗ pi = 3,14 phải sửa thành const pi = 3,14;

CHÚC BẠN THI TỐT^^

lần thứ nhất i=1+1=2, j=2+1=3; k=3+3=6

lần thứ hai \(i=2+1=3;j=3+1=4;k=6+4=10\)

Lần thứ ba \(i=3+1=4;j=4+1=5;k=10+5=15\)

Lần thứ tư \(i=4+1=5;j=5+1=6;k=15+6=21\)

Lần thứ năm \(i=5+1=6;j=6+1=7;k=21+7=28\)

vì qua lần thứ năm này giá trị của i vẫn thỏa mãn (đúng) với điều kiện nên câu lệnh tiếp tục thực hiện:

\(i=6+1=7;j=7+1=8;k=28+8=36\)

Qua lần lặp này giá trị của i>6 nên không thỏa mãn điều kiện, câu lệnh kết thúc.

Giá trị của i, j, k được in ra màn hình lần lượt bằng 7, 8, 36