Nhập N tên hs(họ tên) (2<N<50)
a) Chuẩn hóa xâu
b)Đảo tên xâu lên đầu. In ra màn hình các xâu khi đảo
c) Sắp xếp danh sách hs theo họ tên, nếu cùng tên thì xếp theo họ
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.
DT
6
K
12 tháng 12 2020
program phuong_trinh;
uses crt;
var a,b:real;
begin
writeln('chuong trinh giai phuong trinh ã+b=0');
write('nhap he so a ='); readln(a);
write('nhap he so b ='); readln(b);
If (a<>0) then writeln('phuong trinh',a:10:2,'x+',b:10:2,'=0',' co nghiem x=;'-b/a:10:2);
If (a=0) and (b=0) then writeln('phuong trinh co vo so nghiem');
If (a=0) and (b<>0) then writeln('phuong trinh vo nghiem');
readln
end.
K
9 tháng 12 2020
1,
program so_nguyen;
uses crt;
var a,b:real;
begin
writeln('Nhap so thu nhat');,readln(a);
writeln('Nhap so thu hai');readln(b);
If (a>0) and (b>0) then writeln('cung dau') else write('khong cung dau');
If (a<0) and (b<0) then writeln('cung dau') else write('khong cung dau');
2,, program so_nguyen;
uses crt;
var a,b:real;
begin
writeln('Nhap so thu nhat');,readln(a);
writeln('Nhap so thu hai');readln(b);
If a>b then write('so thu nhat lon hon');
If a<b then write('so thu hai lon hon');
readln
end.(Pascal nha) - Có thể dùng If...then... hoặc while...do...
NG
2