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.
Program HOC24;
var i: byte;
s: string;
begin
readln(s);
for i:=1 to length(s) do
begin
if s[i]='1' then write('mot ');
if s[i]='2' then write('hai ');
if s[i]='3' then write('ba ');
if s[i]='4' then write('bon ');
if s[i]='5' then write('nam ');
if s[i]='6' then write('sau ');
if s[i]='7' then write('bay ');
if s[i]='8' then write('tam ');
if s[i]='9' then write('chin ');
if s[i]='0' then write('khong ');
readln;
end.
n = int(input("Nhập vào số nguyên bất kỳ")) for i in range (1, n + 1): print(i)
program là khai báo tên chương trình
uses là dùng để khai báo thư viện
crt là một thư viện thường dùng trong pascal
var được dùng để khai báo biến
integer là kiểu dữ liệu
begin là bắt đầu
clrscr là xóa màn hình
writeln là xuất
readln(a) là nhập vào
tong:=a+b có nghĩa là phép gán biến tong cho a+b;
writeln('-Tong a+b=',tong) là xuất kết quả của biến tong
readln có nghĩa là lệnh chờ
end là kết thúc
program tong;
uses crt;
var M, N, S, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
s : = 0;
for i := M to N do if (i mod 2 = 0) then s:= s + i;
write (T'ong cac so chan trong pham vi tu M den N = ',s);
readln;
end.
mk mới làm tổng thui nghen