Olm chào em, cảm ơn đánh giá của em về chất lượng bài giảng của Olm, cảm ơn em đã đồng hành cùng Olm trên hành trình tri thức. Chúc em học tập hiệu quả và vui vẻ cùng Olm em nhé!

Olm chào em, cảm ơn đánh giá của em về chất lượng bài giảng của Olm, cảm ơn em đã đồng hành cùng Olm trên hành trình tri thức. Chúc em học tập hiệu quả và vui vẻ cùng Olm em nhé!

Tuyệt vời quá

tuyệt j vậy

cái thứ 1 bạn nhé :)

a, 3.a²+ |b|

b, \(\frac{12}{5}\)\(\sqrt{x}\) -\(\sqrt{y}\)

c,

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.

Program GPTBN ;

var a,b: Real ;

Begin

Write( 'Nhap he so a,b cua phuong trinh :'); Readln (a,b);
if a<>0 then writeln ('Phuong trinh co nghiem duy nhat x=' ,-b/a:0:4)

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

else writeln (' phuong trinh vo nghiem ');

Readln;

End.

program gptbn;

uses crt;

var a,b:real;

begin

write('Nhap he so a,b cua phuong trinh: ');readln(a,b);

if a <> 0 then writeln('Phuong trinh co nghiem duy nhat x= ',-b/a:0:4)

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

else writeln('Phuong trinh vo nghiem');

readln

end.