Viết chương trình nhập số tự nhiên hợp lệ trong khoảng từ 10 đến 20. Nếu số nhập vào không hợp lệ thì yêu cầu nhập lại
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.
19 tháng 5 2020
uses crt;
var n,i,d,t,x,kt:integer;
st:string;
a:array[1..255]of integer;
begin
clrscr;
write('n='); readln(n);
str(n,st);
d:=length(st);
writeln('Cac chu so cua ',n,' la: ');
for i:=1 to d do
write(st[i]:4);
writeln;
t:=0;
for i:=1 to d do
begin
val(st[i],a[i],x);
t:=t+a[i];
end;
writeln('Tong cac chu so cua ',n,' la: ',t);
if t>1 then
begin
kt:=0;
for i:=2 to t-1 do
if t mod i=0 then kt:=1;
if kt=0 then writeln('Tong cac chu so cua ',n,' la so nguyen to')
else writeln('Tong cac chu so cua ',n,' khong la so nguyen to');
end
else writeln('Tong cac chu so cua ',n,' khong la so nguyen to');
writeln('Cac so chinh phuong tu 1 den tong cac chu so cua ',n,' la: ');
for i:=1 to t do
if sqrt(i)=trunc(sqrt(i)) then write(i:4);
readln;
end.
23 tháng 5 2020
bạn ơi bài này khi mình nhấn số lớn cỡ 1000 thì nó cứ có lỗi là soa vậy sửa lại giúp mình với
18 tháng 5 2020
Bài 1:
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chan trong day la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
writeln('Cac so le trong day la: ');
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
Bài 2:
uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+sqr(a[i]);
writeln('Tong binh phuong cac so trong mang vua nhap la: ',t);
readln;
end.
ND
2
18 tháng 5 2020
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day nguoc la: ');
for i:=n downto 1 do
write(a[i]:4);
readln;
end.
18 tháng 5 2020
program bai1;
uses crt;
var n,i: integer;
a: array[1..100] of integer;
begin
clrscr;
write('nhap so n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
for i:= n downto 1 do write(a[i] , ' ');
readln;
end.
18 tháng 5 2020
uses crt;
var a:array[1..10000]of integer;
n,i,t,dem:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until (0<n) and (n<10000);
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
until (a[i]<=109);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i]<0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Trung binh cong cac so am la: ',t/dem:4:2);
readln;
end.
18 tháng 5 2020
uses crt;
var n,i,kt,j:integer;
begin
clrscr;
write('nhap n='); readln(n);
if n>1 then
begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then
begin
if n mod 2=0 then writeln(n,' la so nguyen to chan')
else writeln(n,' la so nguyen to le');
end
else writeln(n,' khong la so nguyen to');
end
else writeln(n,' khong la so nguyen to');
readln;
end.
HT
0
var a:int64;
begin
read(a);
if (a<10) or (a>20) then writeln('Nhap lai: ');
while(a<10) or (a>20) do read(a);
if (a>10) and (a<20) then writeln(' Thanh cong');
readln;
end.