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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
ND
1
7 tháng 11 2019
uses crt;
var a:array[1..50]of char;
i,n:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (n>0) and (n<=50);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------xuat--------------------}
for i:=1 to n do
write(a[i]:4);
readln;
end.
6 tháng 4 2020
uses crt;
var a:array[1..250]of integer;
i,n,dem:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------------xu-ly---------------------------------}
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('so cac so duong la: ',dem);
readln;
end.
TH
1
3 tháng 5 2020
uses crt;
var a,b,ts,ms:integer;
{--------------------------chuong-trinh-con------------------}
function ucln(var x,y:integer):integer;
var i,j:integer;
begin
clrscr;
if x>y then
begin
ucln:=1;
for i:=1 to y do
if (x mod i=0) and (y mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end
else begin
ucln:=1;
for j:=1 to x do
if (x mod j=0) and (y mod j=0) then
begin
if ucln<j then ucln:=j;
end;
end;
end;
{------------------------chuong-trinh-chinh-------------------}
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
ts:=a div ucln(a,b);
ms:=b div ucln(a,b);
writeln('Phan so sau khi rut gon la: ',ts,'/',ms);
readln;
end.
27 tháng 3 2019
program viet_chuong_trinh;
uses crt;
var
a:array[1..50] of integer;
i,j:integer;
begin
clrscr;
for i:=1 to 50 do
begin
writeln('Moi nhap so thu ',i,':=', a[i]); readln(a[i]);
end;
for i:=1 to 50 do
if (a[i] mod 2 = 1) then writeln(a[i]);
end.
6 tháng 5 2020
uses crt;
\n\nvar a:array[1..200]of integer;
\n\ni,n,dem:integer;
\n\nbegin
\n\nclrscr;
\n\nrepeat
\n\nwrite(\'n=\'); readln(n);
\n\nuntil (0<n) and (n<=200);
\n\nfor i:=1 to n do
\n\nbegin
\n\nwrite(\'A[\',i,\']=\'); readln(a[i]);
\n\nend;
\n\ndem:=0;
\n\nfor i:=1 to n do
\n\nif (a[i] mod 2=0) and (a[i] mod 5=0) then inc(dem);
\n\nwriteln(\'So phan tu chan va chia het cho 5 la: \',dem);
\n\nreadln;
\n\nend.
\n
7 tháng 11 2019
quá đơn giản
bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>100) then writeln('ban da nhap sai,yeu cau ban nhap lai');
until (n>0) and (n<=100);
for i:=1 to n do
begin
write('a[',i.']='); readln(a[i]);
end;
{--------------xuat-day--------------}
for i:=1 to n do
write(a[i]:4);
{-------------xu-ly----------------}
dem:=0;
for i:=1 to n do
if a[i] mod 2=1 then inc(dem);
writeln('so luong so le trong day la: ',dem);
readln;
end.
bài 2:
uses crt;
var a:array[1..50]of char;
i,n:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (n>0) and (n<=50);
for i:=1 to n do
write('a[',i,']='); readln(a[i]);
{------------------xuat--------------------}
for i:=1 to n do
write(a[i]:4);
readln;
end.
bài 3:
uses crt;
var st1,st2:string;
d,d1:integer;
begin
clrscr;
write('nhap xau thu 1:'); readln(st1);
write('nhap xau thu 2:'); readln(st2);
d:=length(st1);
d1:=length(st2);
if d>d1 then writeln('xau thu 1 dai hon xau thu 2');
if d<d1 then writeln('xau thu 2 dai hon xau thu 1');
if d=d1 then writeln('hai xau co do dai bang nhau');
readln;
end.
7 tháng 11 2019
xin lỗi bạn , mình xin sửa lại bài 2 như sau:
uses crt;
var a:array[1..50]of char;
i,n:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (n>0) and (n<=50);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------xuat--------------------}
for i:=1 to n do
write(a[i]:4);
readln;
end.
3 tháng 6 2020
kí tự gì bạn? Kí tự in hoa, Kí tự in thường hay là kí tự chữ số vậy bạn?
ko thick
lớp 11 ngủ trước 12h là quá lười ; haizz