tùy tình huống thì sẽ có cách sử lí khác nhau nhé bạn !

Bạn đăng nhập hay là gửi email. Bạn có thể mô tả cụ thể để mọi người giúp bạn dễ hơn nhé.

1

Uses crt;
Var t,n,i:longint;
Begin
clrscr;
write('nhap vào số n: ');readln(n);

while n<1 do readln(n);
for i:=1 to n do t:=t*i;
write('tich tren co ket qua la: 't);
readln;
End.

2(bài này sử dụng mảng nhé)

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
Begin
Write('Nhap N='); Readln(N);

while N<1 do readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('so lon nhat trong day N:', Max);
Readln;
End.

3

Uses crt;
Var a:array[1..20]of integer;i,N,max,min:integer;
Begin
Clrscr;
Write(‘Nhap so phan tu cua day n=’);readln(n); For i:=1 to n do
Begin

Write(‘Nhap a[‘,i,’]=’);readln(a[i]);
End;
Min:=a[1]; Max:=a[1]; For i:=1 to N do
Begin

If (Min > a[i]) then Min:=a[i];
If (Max < a[i]) then Max:=a[i];
End;
Writeln('Day so vua nhap la: '); Writeln('————————-'); For i:=1 to N do
Write(a[i]:4); Writeln;
Writeln('Gia tri lon nhat la:',Max); Writeln('gia tri nho nhat la:',Min);
Readln;

End.

kiểm tra xem đúng ko nhé!

1)var n,i:integer;
s:real;
begin
repeat
write('n=');readln(n);
until (n>=1) and (n<=100);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(' tich la: ',s:1:0);
readln;
end.

ko phải do bạn lập trình hơi chệch choạng đâu mà do nó khó đó

à có vẻ hơi khó thiệt để ngĩ đã

Bạn tham khảo chương trình của mình nhé.

uses crt;

var n,i:integer;

a:real;

begin

clrscr;

repeat

write('n='); readln(n);

until n>0;

a:=0;

i:=1;

while i<=n do

begin

a:=a+1/i;

inc(i);

end;

writeln('A=',a:4:2);

readln;

end.

Câu 6:

uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);

if a mod 2=0 then writeln(a,' la so chan')

else writeln(a,' la so le');

readln;

end.

Câu 7:

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

if a>b then writeln(a-b)

else writeln(b-a);

readln;

end.

Câu 8:

uses crt;

var a,b,c,ln:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

ln:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

writeln(ln);

readln;

end.

Câu 10:

uses crt;

var toan,ly,hoa,dtb:real;

begin

clrscr;

write('Nhap diem Toan:'); readln(toan);

write('Nhap diem Ly:'); readln(ly);

write('Nhap diem Hoa:'); readln(hoa);

dtb:=(toan*2+ly+hoa)/4;

if dtb<5 then writeln('Yeu');

if (5<=dtb) and (dtb<8) then writeln('Kha');

if dtb>=8 then

begin

if (toan=10) and (hoa>7) and (ly>7) then writeln('Gioi va nhan hoc bong')

else writeln('Gioi va khong nhan hoc bong');

end;

readln;

end.

Bạn ơi chỗ câu 8 ln:=a thì ln là gì vậy bạn?

có

1:

a) Sai

b) Sai

c) đúng

d) sai

2:

câu lệnh lặp 6 lần

giá trị của s là 12

Mình cảm ơn bạn nhiều nha