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.
Bạn tham khảo chương trình này nhé!
program ma_hoa_va_giai_ma;
uses crt;
var s : string;
i,a : integer;
t : char;
BEGIN
clrscr;
repeat
write('Nhap 1 de ma hoa, 2 de giai ma'); readln(a);
if(a<>1) and (a<>2) then writeln('Moi ban nhap lai');
until (a=1) or(a=2);
if a=1 then
begin
write('Nhap xau can ma hoa: '); readln(s);
write('Xau ket qua la: ');
for i:=1 to length(s) do
begin
t:=upcase(s[i]);
if (ord(t) >= 65) and (ord(t) <= 90) then
write(chr(((ord(t)-58) mod 26)+65)) else write(t);
end;
end
else if a=2 then
begin
write('Nhap xau can giai ma: '); readln(s);
write('Xau ket qua la: ');
for i:= 1 to length(s) do
begin
t:=upcase(s[i]);
if (ord(t) >= 65) and (ord(t) <= 90) then
write(chr(((ord(t)-46) mod 26)+65))
else write(t);
end;
end;
readln;
END.
program bt;
uses crt;
var n,i,j:word;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n+1 do a[i]:=0;
a[1]:=1;
for i:=0 to n do
begin
for j:=i+1 downto 2 do a[j]:=a[j]+a[j-1];
for j:=1 to i+1 do write(a[j]:3);
writeln;
end;
readln;
end.
1) Sai --> Program Chuong_trinh;
2) Đúng
3) Đúng
4) Đúng
5) Sai --> s:=s+1;
6) Sai -->i:=1+1;
7) Sai --> End;
8 và 9) Sai --> Writeln(s); và Readln;
10) Sai --> End.
Đúng thì like cho mình nha :)))
Từ khóa: program; uses; begin; end; writeln
Tên: CT_Dau_tien; Crt
Từ khóa: program, uses, begin, writeln, End.
Tên: CT_Dau_tien, Crt
- Các bạn tham khảo đáp án tại đây : Câu hỏi của Tin học [Hỗ trợ] - Tin học lớp 8 | Học trực tuyến
- Dự tính là vòng 1 sẽ lấy 20 bạn nhưng một số bạn đạt điểm 5 mình đã gửi bài khảo sát nhưng chưa có phản hồi và bạn làm của các bạn không có chất lượng . Vì vậy trong vòng 2 sẽ loại những bạn không có kết quả tốt . Các bạn có kết quả tốt sẽ góp mặt ở vòng 3- Chung Kết
Chúc mừng các bạn đã vào vòng 2 nhé.
Ước gì cuộc thi Tin này năm sau mở nhỉ ? Tại năm nay em mới học lớp 7, học đc mấy cái nâng cao về Excel nhưng mà cuộc thi lại về Pascal .
Buồn nhưng cũng chúc mừng nhé.
soluong: Biến
Dongia: Biến
thanhtien: Biến
phi: Hằng
Tinh_tien: Không phải hằng hoặc biến
|
|
Hằng |
Biến |
Không phải hằng hoặc biến |
|
soluong |
|
x |
|
|
Dongia |
|
x |
|
|
thanhtien |
|
x |
|
|
phi |
x |
|
|
|
10000 |
|
|
x |
|
Tinh_tien |
|
|
x |
program ma_hoa_va_giai_ma;
uses crt;
var s : string;
i,a : integer;
t : char;
BEGIN
clrscr;
repeat
write('Nhap 1 de ma hoa, 2 de giai ma'); readln(a);
if(a<>1) and (a<>2) then writeln('Moi ban nhap lai');
until (a=1) or(a=2);
if a=1 then
begin
write('Nhap xau can ma hoa: '); readln(s);
write('Xau ket qua la: ');
for i:=1 to length(s) do
begin
t:=upcase(s[i]);
if (ord(t) >= 65) and (ord(t) <= 90) then
write(chr(((ord(t)-58) mod 26)+65)) else write(t);
end;
end
else if a=2 then
begin
write('Nhap xau can giai ma: '); readln(s);
write('Xau ket qua la: ');
for i:= 1 to length(s) do
begin
t:=upcase(s[i]);
if (ord(t) >= 65) and (ord(t) <= 90) then
write(chr(((ord(t)-46) mod 26)+65))
else write(t);
end;
end;
readln;
END.
Chúc em học giỏi
êi giỏi chạy được nhaaa