tinh diem trung binh biet neu <5 thi o lai lop >5 thi len lop
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var a,b:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if b=0 then writeln('Khong the tinh toan')
else writeln(a/b:4:2);
readln;
end.
Nếu đổi bước 2 và bước 3 cho nhau thì chương trình sẽ tìm số lớn nhất trong dãy A có i trong khoảng từ 2 tới n
program vct;
uses crt;
var
a,b,c:longint;
begin
writeln('Nhap a = '); readln(a);
writeln('Nhap b = '); readln(b);
writeln('Nhap c = '); readln(c);
if (((a+b)>c) and ((b+c)>a) and ((c+a)>b)) then write('DAY LA DO DAI BA CANH CUA MOT TAM GIAC')
else write('DAY KHONG PHAI LA DO DAI BA CANH CUA MOT TAM GIAC');
readln;
end.
Var a,b:integer;
Begin
Write('Nhap vao so nguyen thu nhat ');readln(a);
Write('Nhap vao so nguyen thu hai ');readln(b);
If a > b then write('So lon hon la ',a);
If a < b then write('So lon hon la ',b);
If a = b then write('Khong co so nao lon hon');
Readln;
End.
nếu mà câu hỏi bảo chia hết cho 3,5,9,2 thì dùng and còn ko đề bảo chia hết cho 3 hoặc 5 thì dùng lệnh or vd: (n mod 3=0) or (n mod 5=0)