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.

mình không biết 

mình không học lập trình nên minh không biết

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ĩ đã

Dịch vụ đám mây mang lại lợi ích vượt trội trong lưu trữ, bao gồm khả năng làm việc mọi lúc mọi nơi, chia sẻ dữ liệu dễ dàng, tiết kiệm chi phí do không cần mua phần cứng và thanh toán theo dung lượng sử dụng, tăng cường bảo mật với các biện pháp mã hóa và sao lưu, khả năng mở rộng linh hoạt theo nhu cầu, cùng với khả năng phục hồi dữ liệu khi có sự cố xảy ra.

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.

ai nhanh nhất được tick

?

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?