chuong trinh yeu cau nguoi nhap vao 1 so nho hon 100 neu nguoi dung nhap vao 1 so lon hon 100 thi yeu cau nguoi nhap lai sau do kiem tra so nhap vaof co phair la so nguen to ko
giups em sap thi r a
Những câu hỏi liên quan
chuong trinh yeu cau nguoi nhap vao 1 so nho hon 100 neu nguoi dung nhap vao 1 so lon hon 100 thi yeu cau nguoi nhap lai sau do kiem tra so nhap vao co phai la so nguyen to ko
uses crt;
var n,i:integer;
kt:boolean;
begin
clrscr;
repeat
readln(n);
until n<=100;
if (n<2) then writeln('khong la so nguyen to')
else begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=false;
if kt=true then write('la so nguyen to')
else write('khong la so nguyen to');
end;
readln;
end.
Đúng 0
Bình luận (0)
viet chuong trinh nhap vao cac so nguyen tu ban phim va tinh tong cua chung.Chuong trinh dung lai khi tong lon hon hoac bang a(a la so nhap tu ban phim)va thong bao tong do ra man hinh(Free Pascal)
Giup minh voi
viet chuong trinh nhap vao 1 xau Sva 1 ki tu bat ki tu ban phim . kiem tra trong xau vua nhap co bao nhiweu ki tu vua nhap , xoa tat ca ki tu do trong xau S.
MONG MOI NGUOI GIUP DO ;
uses crt;
var s:string;
ktu:char;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(s);
write('Nhap ki tu:'); readln(ktu);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]=ktu then inc(dem);
writeln('So ki tu ',ktu,' trong xau ',s,' la: ',dem);
for i:=1 to d do
if s[i]=ktu then delete(s,i,1);
writeln('Xau sau khi xoa cac ki tu ',ktu,' la: ',s);
readln;
end.
Đúng 0
Bình luận (0)
Bai1 viet chuong trinh dao nguoc 1 so co 3 chu so
vd nhap vao so 123 thi xuat ra ket qua 321
Bai2 In ra 2 chu so thu2 va so thu 4 cua 1 so co 4 chu so
vd nhap vao so 1234 thi xuat ra ket qua la 24
Bai3 Nhap vao 1 so co 3 chu so tinh tong cua 3 so do
vd nhap so 123 thi ket qua xuat ra la 5
Lời giải :
Bài 1:
Ý tưởng:
-Cách 1: Bạn có thể chuyển số n thành xâu sau đó đảo ngược xâu lại
-Cách 2: Đảo trực tiếp chữ số đó
Bài làm :
Cách 1:
program hotrotinhoc;
var n,i: byte;
s,s1: string;
begin
write('n='); readln(n);
str(n,s);
for i:= length(s) downto 1 do
s1:=s1+s[i];
write(s1);
readln
end.
Cách 2:
var n: byte;
begin
write('n='); readln(n);
while n>0 do
begin
write(n mod 10);
n:=n div 10;
end;
readln
end.
Đúng 0
Bình luận (0)
Bài 2:
program hotrotinhoc;
var n: string;
begin
write('n='); readln(n);
write(n[2],n[4]);
readln
end.
Bài 3: Tính tổng các chữ số đúng không bạn ? Ở ví dụ sao lại Nhập 123 thì xuất ra kết quả là 5 ạ ? Tổng của 3 chữ số phải là 6 chứ ạ
Đúng 0
Bình luận (0)
viet chuong trinh cho phep nhap diem kiem tra 1 ban nao do va in ra man hinh ket qua: neu diem nho hon 5 thi ban can co gang hon. neu ban lon hon hoac =5 va nho hon 6,5 thi ban dat diem trung binh. neu diem lon hon hoac = 6,5 va nho hon 8 thi ban dat diem kha. neu diem lon hon hoac = 8 thi ban dat diem gioi
uses crt;
var diem:real;
begin
clrscr;
write('nhap diem:'); readln(diem);
if diem<5 then writeln('ban can co gang hon');
if (diem>=5) and (diem<6.5) then writeln('ban dat diem trung binh');
if (diem>=6.5) and (diem<8) then writeln('ban dat diem kha');
if diem>=8 then writeln('ban dat diem gioi');
readln;
end.
trinh viet chuong nhap vao 1 mang 1 chieu gom n phan tu ( voi n duoc nhap vao tu ban phim ). Hay thuc hien cac cong viec sau:
-Nhap/xuar mang
- Dem co bao nhieu phan tu la so chan trong mang
-Kiem tra xem mang co phai la mang le hay khong ? ( tat ca cac phan tu mang la so le )
Bạn ơi phải viết bằng ngôn ngữ lập trình gì vậy.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
CAU 1:
A, Nhap vao so nguyen n ; Tinh tong S= 1+2+3+...+n
B, Nhap vao mot mang gom m so nguyen . Tinh tong cac phan tu cua mang do.
GIUP MINH VOI NHA MOI NGUOI ...
A:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
B:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap m='); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to m do
t:=t+a[i];
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Cau 1: Viet chuong trinh nhap vao n so thuc. Tinh tong cua n so do
uses crt;
var s,n,i:integer;
a:array [1..100] of real;
begin
s:=0;
write('nhap so so hang cua day');readln(n);
for i:=1 to n do begin
writeln('so thu',i,'la: '); readln(a[i]); s:=s+a[i]; end;
write('tong day so thuc la:',s); readln;
end.
Đúng 2
Bình luận (1)
uses crt;
var a:array[1..100]of real;
i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln(s:4:2);
readln;
end.
Đúng 1
Bình luận (0)
1.Hai so co tong bang 454 va neu them chu so 4 vao ben tra so thu hai thi duoc so thu nhat.Tim hai so do2.Mot xe o to cho hai chuyen muoi , chuyen dau cho 3ta 56kg muoi , chuyen sau cho duoc nhien hon chuyen dau 3 yen muoi .Hoi trung binh moi chuyen o to cho bao nhieu ki-lo-gam?3.Mot kho luong thuc nhap thoc trong hai dot duoc tat ca 12632 ta thoc .Neu dot thu nhat nhat them 370 ta thi so thoc dot 1 nhap ve nhieu honso thoc dot hai la 246 ta .tinh so thoc trong moi dot4.Nam nam truoc day me hon...
Đọc tiếp
1.Hai so co tong bang 454 va neu them chu so 4 vao ben tra so thu hai thi duoc so thu nhat.Tim hai so do
2.Mot xe o to cho hai chuyen muoi , chuyen dau cho 3ta 56kg muoi , chuyen sau cho duoc nhien hon chuyen dau 3 yen muoi .Hoi trung binh moi chuyen o to cho bao nhieu ki-lo-gam?
3.Mot kho luong thuc nhap thoc trong hai dot duoc tat ca 12632 ta thoc .Neu dot thu nhat nhat them 370 ta thi so thoc dot 1 nhap ve nhieu honso thoc dot hai la 246 ta .tinh so thoc trong moi dot
4.Nam nam truoc day me hon con 24 tuoi tuoi .Hien nay , tong so tuoi cua hai me con la 46 tuoi .Tinh tuoi moi nguoi hien nay.
5.Hai so co hieu bang 155.Neu lay so thu nhat cong so thu hai va cong them tong cua chung thi duoc ket qua la 2010.Tim hai so do
