Program tinh_tong;
Var i,n,s:integer;
Begin
S:=0;
Write('nhap n =');readln(n);
For i:= 1 to n do s:= s+i;
Write('tong',n,'so tu nhien dau tien = ',s);
Readln
End.

minh khong biet co dung khong nhung co gang lam bai that tot nhe chuc ban may man

tự làm là nhanh nhất

ai đòng ý xin 1 ý kiến

1.

program tinhtong;

uses crt;

var s,i,n:integer;

begin

s:=0;

for i:=1 to 10 do s:=s+1;

writeln ('tong cua s=',s);

readln

end.

2.

program tinhtong;

uses crt;

var i,L,s:integer;

begin

write('nhap gia tri L='); readln(L);

s:=0;

for i:=1 to L do s:=s+1;

writeln('tong cua s=',s);

readln

end.

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do t:=t+i;

writeln(t);

readln;

end.

program Solonnhat;

uses CRT;

var a,b,c:real;

begin

clrscr;

readln(a);

readln(b);

readln(c);

if (a>b) and (a>c) then

begin

writeln('So lon nhat la ',a:2:2);

readln;

end

else

if (b>a) and (b>c) then

begin

writeln('So lon nhat la ',b:2:2);

readln;

end

else

if (c>a) and (c>b) then

begin

writeln('So lon nhat la ',c:2:2);

readln;

end

end

end.

Bỏ bớt một cái end nha bạn

program andanh;
uses crt;
var i,n,tong,a:integer;
begin
clrscr; tong:= 0;
repeat
write('Nhap so cac so: ');readln(n);
if n > 10 then
begin
write('Nhap so be hon 10. Hay nhap lai');
delay(2000);
clrscr;
end;
until n <= 10;
for i:= 1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a);
tong:= tong + a;
end;
write('Trung binh cong cua cac so tren la: ',tong/n:2:2);
readln
end.

 bạn phải tự làm chứ bởi vì đó là bài kiểm tra. Mà ko có bài nào trên mạng đâu

MỞ sách ra mà coi thiếu j ??
Cố nhên!! ^^

=))
 

Tớ thấy : cậu nên ôn tập lại những bài đã học trước đó là tốt nhất

còn nếu lên mạng tìm đề thì nhiều vô kể ;à mà cho tớ hỏi Sinh ?? vậy

uses crt;

var a,b:longint;

Begin

clrscr;

Writeln('Nhap a,b=');

Readln(a,b);

writeln('tich hai so la : a*b=',a*b);

writeln('thuong hai so la :a/b=',a/b);

Readln;

End.

mk chịu!!

Giúp mình với đi mấy bạn!