Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
haizzz!!

1.Viết chương trình nhập số nguyên n. Hãy tìm chữ số lớn nhất của n.

2. Viết chương trình nhập từ bàn phím 2 số nguyên a và b. Tìm BCNN của a và b

nguyễn an phát
3 tháng 4 2021 lúc 12:02

program tim_chu_so;

uses crt;

var i,n,csln:longint;

k:integer;

a:array[1..1000]of longint;

st:string;

begin

clrscr;

write('nhap so n:');readln(n);

str(n,st);

val(st,a[i]);

csln:=a[1];

for i:=1 to length(st) do

if csln<a[i] then csln:=a[i];

writeln('chu so lon nhat cua so ',n,' la:',csln);

readln;

end.

Nguyễn Lê Phước Thịnh
3 tháng 4 2021 lúc 19:21

Câu 1: 

uses crt;

var n,i,d,x,y,max:integer;

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

str(n,st);

d:=length(st);

max:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

if max<x then max:=x;

end;

writeln('Chu so lon nhat la: ',max);

readln;

end. 

Nguyễn Lê Phước Thịnh
3 tháng 4 2021 lúc 19:23

Câu 2: 

uses crt;

var a,b,i,bcnn:longint;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

bcnn:=a*b;

for i:=a*b-1 downto 1 do 

  if (i mod a=0) and (i mod b=0) then 

begin

if bcnn<i then bcnn:=i;

end;

writeln('Boi chung nho nhat la: ',bcnn);

readln;

end.

Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 22:03

1).

progam chuso_max;

uses crt;

var n:longint;

      max:byte;

begin

       clrscr;

       write(‘Nhap so: ‘); readln(n);

       max:=0;

       while n>0 do

              begin

                     if n mod 10>max then max:=n mod 10;

                     n:=n div 10;

              end;

       write(‘Chu so lon nhat la: ‘,max);

       readln;

end.

2).

uses crt;

var a,b,bcnn,i:longint;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

bcnn:=a*b;

for i:=a*b-1 downto 1 do 

  if (i mod a=0) and (i mod b=0) then 

   begin

if bcnn>i then bcnn:=i;

end;

writeln('Boi chung nho nhat la: ',bcnn);

readln;

end.


Các câu hỏi tương tự
Nguyễn Linh
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
phamthiminhanh
Xem chi tiết
Bbi thành real
Xem chi tiết
Nguyễn Thị Thái
Xem chi tiết
Tích Nguyệt
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Quản Gia Lynh
Xem chi tiết
Cao Cự Quân
Xem chi tiết