Var a,b,x:real;

begin

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

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

if a = 0 then

begin

if b = 0 then write('Phuong trinh co vo so nghiem')

else write('Phuong trinh vo nghiem');

end

else

begin

x:=-b/a;

write('Nghiem cua phuong trinh la ',s:10:2);

end;

readln;

end.

Var so,n,i:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(so);

If (so mod 3 = 0) and (so mod 5 = 0) then

s:=s+so;

End;

Write('Tong la ',s);

Readln;

End.

- Sử dụng hình ảnh nền đẹp cho bài trình chiếu

- Sử dụng những hiệu ứng trên trang chiếu và chuyển trang để bài trình chiếu trở nên sinh động hơn

- Chèn ảnh một số nhân vật (hoạt hình, sách vở, thầy cô,... phù hợp với bày trình bày) kèm theo để hấp dẫn bài chiếu bày.

Program HOC24;

var i,n: integer;

s: real;

begin

write('Nhap N: '); readln(n);

i:=2; s:=0;

while i<=n do

begin

s:=s+1/i;

i:=i+1;

end;

write('S = ',s:5:2);

readln

end.

`-` Xóa trang tính:

`+` Nháy chuột phải vào tên trang tính `->` \(\text{Delete.}\)

`-` Đổi tên trang tính: 

`+` Nháy nút chuột phải vào trang tính `->` Nhập tên mới `->` Ok.

Program HOC24;

var i,n,t: integer;

begin

write('Nhap N: '); readln(n);

i:=2; t:=0;

while i<=n do

begin

t:=t+i;

i:=i+2;

end;

write('Tong cac so chan tu 1 den ',n,' la: ',t);

readln

end.

Program HOC24;

var i,n,t: integer;

begin

write('Nhap N: '); readln(n);

i:=1; t:=0;

while i<=n do

begin

if n mod i=0 then t:=t+i;

i:=i+1;

end;

write('Tong cac uoc cua ',n,' la: ',t);

readln

end.

Bạn bổ sung thêm đề nhé

Program HOC24;

var i,t,k,n: integer;

begin

write('Nhap N: '); readln(n);

t:=0; k=0;

while k=0 do

begin

n:=n+1;

for i:=1 to n do if n mod i=0 then t:=t+i;

if t=n then

begin

write(n);

k:=k+1

end else t:=0;

end;

readln

end.

Giải cho em bằng chương trình python lớp 10 đc ko ạ