Lập trình pascal. Dùng for, longint, inc, phép gán. Nhanh nhất đc trả lời hay nhất. Giúp mik với:>>>20) Nhập vào 2 số nguyên dương m, n. Xuất ra màn hình dãy c
Lập trình pascal. Dùng for, longint, inc, phép gán. Nhanh nhất đc trả lời hay nhất. Giúp mik với:>>>
Lời giải 1 :
câu 20:
C1:
program mang;
uses crt;
var n,m,i,j,d:integer;
begin
clrscr;
write('Nhap m: '); readln(m);
write('Nhap n: '); readln(n);
d:=0;
for i:=1 to m do
begin
for j:=1 to n do
begin
inc(d);
write(d:4);
end;
writeln;
end;
readln
end.
C2:
program mang;
uses crt;
var A:array[1..10000,1..10000] of longint;
n,m,i,j:integer;
d:longint;
begin
write('Nhap m: '); readln(m);
write('Nhap n: '); readln(n);
d:=0;
for i:=1 to m do
for j:=1 to n do
begin
inc(d);
A[i,j]:=d;
end;
for i:=1 to m do
begin
for j:=1 to n do
write(A[i,j]:4);
writeln;
end;
readln
end.
Câu 21
program sochuso;
uses crt;
var n:int64;
d:byte;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
while n>0 do
begin
inc(d);
n:=n div 10;
end;
write('So chu so la: ',d);
readln
end.
Câu 22
program sochuso;
uses crt;
var n:int64;
d:byte;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
while n>0 do
begin
if (n mod 10) mod 2=0 then inc(d);
n:=n div 10;
end;
write('So chu so chan la: ',d);
readln
end.
Thảo luận
Lời giải 2 :
Mik biết câu này thui
Câu 22
program sochuso;
uses crt;
var n:int64;
d:byte;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
while n>0 do
begin
if (n mod 10) mod 2=0 then inc(d);
n:=n div 10;
end;
write('So chu so chan la: ',d);
readln
end.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 7
Lớp 7 - Năm thứ hai ở cấp trung học cơ sở, một cuồng quay mới lại đến vẫn bước tiếp trên đường đời học sinh. Học tập vẫn là nhiệm vụ chính!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247