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

Những câu hỏi liên quan
bar em
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 3 2022 lúc 10:06

 

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.

 

 

bar em
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 3 2022 lúc 10:06

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.

Chu Nam
Xem chi tiết
KhảTâm
27 tháng 4 2021 lúc 19:46

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.

 

 

Nguyễn Lê Phước Thịnh
27 tháng 4 2021 lúc 20:57

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.

minh nguyen cong
Xem chi tiết
Minh Lệ
21 tháng 4 2019 lúc 8:45

Lời giải :

program hotrotinhoc ;

var a: array[1..32000] of integer ;

i,n,max : integer ;

begin

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

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:= 1 to n do if max<a[i] then max:=a[i];

write('So lon nhat la:',max');

readln

end.

Quandung Le
Xem chi tiết
Trâm Nguyễn Thị Ngọc
21 tháng 12 2018 lúc 16:33

Var

i,d,n :integer;

a:array[1..100] of integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

if a[i]>0 then d:=d+1;

write('mang A co :',d,'so nguyen duong');

readln

end.

Vy Tuong
Xem chi tiết
Vy Tuong
4 tháng 6 2020 lúc 13:21

giup mik vs mik dg can gap

Minh Lệ
4 tháng 6 2020 lúc 13:36

Câu 1:

Program HOC24;

var a: array[1..10] of integer;

min,max,i: integer;

begin

for i:=1 to 10 do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

end;

min:=32000; max:=0;

for i:=1 to 10 do

begin

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

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la :',max);

write('So nho nhat la : ',min);

readln

end.

Minh Lệ
4 tháng 6 2020 lúc 13:37

Câu 2:

Program HOC24;

var a: array[1..20] of integer;

t,i: integer;

begin

for i:=1 to 20 do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

end;

t:=0;

for i:=1 to 20 do

if a[i] mod 2<>0 then t:=t+a[i];

writeln('Tong cac so le la :',t);

readln

end.

Tran Quoc Toan
Xem chi tiết
Hùng Nguyễn Thế
4 tháng 3 2018 lúc 9:50

1. Không đưa câu hỏi linh tinh lên diễn đàn, chỉ đưa các bài mà mình không giải được hoặc các câu hỏi hay lên diễn đàn;

2. Không trả lời linh tinh, không phù hợp với nội dung câu hỏi trên diễn đàn.

3. Không "Đúng" vào các câu trả lời linh tinh nhằm gian lận điểm hỏi đáp.

Các bạn vi phạm 3 điều trên sẽ bị giáo viên của Online Math trừ hết điểm hỏi đáp, có thể bị khóa tài khoản hoặc bị cấm vĩnh viễn không đăng nhập vào trang web.

nguyen trinh
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 6 2020 lúc 10:21

uses crt;
var a,b:array[1..100]of integer;
n,i,dem,max,tam,j:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chia het cho 4 la: ');
for i:=1 to n do
if a[i] mod 4=0 then write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i] mod 7=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
max:=b[1];
for i:=1 to dem do
if max<b[i] then max:=b[i];
writeln('So lon nhat chia het cho 7 la: ',max);
writeln('Cac chi so cua no trong day A la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day so sau khi sap xep giam dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.

hong nhung
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 15:40

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

  if i mod 2=1 then t:=t+i;

writeln(t);

readln;

end.