cho em hỏi nhập vào biển số xe 4 số tính số nút của biến số làm bằng pascal như thế nào ạ
Viết chương trình Pascal, để nhập vào 2 số nguyên từ bàn phím. Tính tổng của 2 số đó.
(mọi người giúp em làm trên pascal với)
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.
Em hãy viết chương trình Pascal nhập vào một số tự nhiên n thoả mãn 0<n<100, nếu sai yêu cầu nhập lại, tính và in ra các bội có 4 chữ số của n.Giups vs ạ cần gấp
program MultiplesOfN;
var
n, i: integer;
begin
repeat
write('Nhap vao so nguyen duong n (0<n<100): ');
readln(n);
until (n > 0) and (n < 100);
writeln('Cac boi so cua ', n, ' co 4 chu so la:');
for i := 1000 to 9999 do
begin
if (i mod n = 0) then
begin
writeln(i);
end;
end;
readln;
end.
Cho biểu thức y = 5 - 2x. Em hãy viết chương trình Pascal tính và in ra màn hình giá trị y. Với x, y là hai biến của chương trình có kiểu dữ liệu là số nguyên, giá trị của x đươc nhập vào từ bàn phím.
giúp em với mng, cảm ơn mng rất nhiều ạ<3
Viết chương trình nhập vào 4 số a,b,c,d của một biển số xe. Kiểm tra xem số xe đó có phải là số may mắn hay không. Biển số xe là số may mắn khi tổng các số trên số xe cộng lại bằng 9
Vd: số xe 4598 = 4 + 5 + 9 + 8 = 26 => 2 + 6 = 8 => số xe không may mắn. (chỉ yêu cầu viết chương trình)
C1:Viết câu lệnh khai biến x có kiểu số nguyên và hằng a có giá trị bằng 5 trong ngôn ngữ lập trình Pascal. C2: Viết chương trình Pascal để: A) nhập vào 2 số nguyên x, y bất kỳ B) tính tổng 2 số đó C) in ra giá trị của tổng
Câu 2:
uses crt;
var x,y:int64;
begin
clrscr;
readln(x,y);
writeln(x+y);
readln;
end.
VCT nhập vào sô tự nhiên n n<=10^4 in ra màn hình thông báo số Phong phú nhỏ nhất lớn hơn hoặc bằng n PASCAL
ĐCM tui lạy các anh chị quản trị giải câu hỏi giải dùm em bài này bằng free pascal ạ 🆘🆘🆘🆘
CÓ BẠN NÀO GIỎI MÔN NÀY K Ạ GIÚP MIK VỚI MIK CẦN GẤP LẮM Ạ Cho hai biến a,b, có kiểu dữ liệu số nguyên. Em hãy viết chương trình Pascal thực hiện các yêu cầu sau: a) Khai báo hai biến a,b. b) Nhập giá trị của hai biến a,b từ bàn phím. c) In kết quả tổng của a,b ra màn hình.
Program tinh_tong;
uses crt;
var a,b:Integer;
begin
Write('Nhap gia tri a: ');
Readln(a);
Write('Nhap gia tri b: ');
Readln(b);
Writeln('Tong: ',a+b);
Readln();
end.
Em hãy viết chương trình Pascal nhập vào một số tự nhiên n thoả mãn 2<n<100, nếu sai yêu cầu nhập lại, tính và in ra các bội có 4 chữ số của n.
program TimBoi4ChuSo;
var
n, i: integer;
begin
repeat
writeln('Nhap vao so nguyen n (2<n<100): ');
readln(n);
until (n > 2) and (n < 100);
writeln('Cac boi cua ', n, ' co 4 chu so la: ');
for i := 1000 to 9999 do
begin
if i mod n = 0 then
writeln(i);
end;
end.
Theo quan niệm của một số người, biển số xe ô tô, xe máy có hai chữ số tận cùng là 68 được coi là biển số đẹp. Em hãy viết chương trình kiểm tra một biển số xe có số là N bất kỳ có phải là biển số đẹp hay không? (N nhập vào từ bàn phím)
write('Nhap n: ');readln(n);
str(n,s);
d:=length(s);
if s[d-1]+s[d]='68' then writeln('day la bien so dep')
else writeln('day khong phai bien so dep');
Mấy Anh Chị, Cô(Thầy) Quản Lí của online math cho em hỏi 1 câu
Tại Sao Lại Không Có Phần Chat như trước khi vậy ạ? Em cảm ơn trước
Câu hỏi :
Viết chương trình pascal: Kiểm Tra N có Phải là số chính phương hay không? (Số đc nhập từ bàn phím)