viet chuong trinh cho phep nhap diem kiem tra 1 ban nao do va in ra man hinh ket qua: neu diem nho hon 5 thi ban can co gang hon. neu ban lon hon hoac =5 va nho hon 6,5 thi ban dat diem trung binh. neu diem lon hon hoac = 6,5 va nho hon 8 thi ban dat diem kha. neu diem lon hon hoac = 8 thi ban dat diem gioi
K
Khách
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.
Những câu hỏi liên quan
14 tháng 3 2022
uses crt;
var n,i:integer;
kt:boolean;
begin
clrscr;
repeat
readln(n);
until n<=100;
if (n<2) then writeln('khong la so nguyen to')
else begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=false;
if kt=true then write('la so nguyen to')
else write('khong la so nguyen to');
end;
readln;
end.
14 tháng 3 2022
uses crt;
var n,i:integer;
kt:boolean;
begin
clrscr;
repeat
readln(n);
until n<=100;
if (n<2) then writeln('khong la so nguyen to')
else begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=false;
if kt=true then write('la so nguyen to')
else write('khong la so nguyen to');
end;
readln;
end.
6 tháng 3 2020
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
if (n>0) and (n<=100) then
begin
t:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if (a[i] mod 2=0) or (a[i] mod 2=1) then t:=t+a[i];
end;
writeln('tong cac phan tu chan hoac le trong day la: ',t);
end
else writeln('vui long nhap lai');
readln;
end.
4 tháng 6 2018
Goi so cau dung la a , so cau sai va so cau ko lam la b
So diem cua Thang duoc tinh theo cong thuc la :
5 . a - 5 . b = 25 ( diem )
Co 5a - 5b = 5 . 5
5( a - b ) = 5 . 5
=> a - b = 5
Co a + b = 15
=> a = 5 + b
a = 15 - b
=> 5 + b = 15 - b
=> b + b = 15 - 5
=> 2b = 10
=> b = 5
=> a + b = 15
=> a = 10
Vay Thang lam dung 10 cau
uses crt;
var diem:real;
begin
clrscr;
write('nhap diem:'); readln(diem);
if diem<5 then writeln('ban can co gang hon');
if (diem>=5) and (diem<6.5) then writeln('ban dat diem trung binh');
if (diem>=6.5) and (diem<8) then writeln('ban dat diem kha');
if diem>=8 then writeln('ban dat diem gioi');
readln;
end.