Question

1, Viết chương trình nhập vào 1 số kiểm tra số đó là âm hay dương

2, Viết chương trình nhập vào họ tên học sinh , điểm trung bình hs. In trên màn hình kết quả "đậu" hay "rớt" của 1 hs. Nếu ĐTB ? 5 là rớt

Giúp vời mấy bạn ơi chiều mik kiểm tra. Cảm ơn mấy bn.

Nguyễn Lê Phước Thịnh Sara Trang Phạm Hoàng Lê Nguyên

Answer 1

program amduong;

var n:int64;

begin

readln(n);

if n<0 then write('am') else if n>0 then write('duong') else write('khong phai so am cung khong phai so duong');

readln;

end.

Answer 2

program diem;

var st,s:ansistring;i,j:longint;n:real;

begin

readln(st);

for i:=1 to length(st) do if st[i] in ['0'..'9'] then

begin

for j:=i to length(st) do s:=s+st[j];

val(s,n);

if n>5 then write('dau') else write('rot');

break;

end;

readln;

end.

Answer 3

1:

uses crt;

var a:integer;

begin

clrscr;

write('nhap a='); readln(a);

if a>0 then writeln(a,' la so duong');

if a<0 then writeln(a,' la so am');

if a=0 then writeln(a,' khong la so am cung khong la so duong');

readln;

end.

2:

uses crt;

var st,s:string;

n:real;

i,j,d,x:integer;

begin

clrscr;

write('nhap ten:');readln(st);

s:='';

d:=length(st);

for i:=1 to d do

if st[i] in ['0'..'9'] then

begin

for j:=i to d do

s:=s+st[j];

val(s,n,x);

if n>=5 then writeln('dau')

else writeln('khong dau');

break;

end;

readln;

end.

Answer 4

Nguyễn Minh Lệ giúp e vs ạ