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.
1/
program chia_het;
uses crt;
var n, i, s: integer;
a : array [1..100] of integer;
begin
clrscr;
write('Cac so can nhap la: n = '); readln(n); s:=0
for i:=1 to n do begin
write('So thu ',i,' la:'); readln(a[i]);
if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then s:=s+1; end;
writeln('Cac so chia het cho 5 va 2 la: ',s);
readln
end.
6.a sai vì sau do có dấu ;
==> sửa lại: for i := 1 to 10 do write(i:5);
6.b sai vì chỉ số đầu lớn hơn chỉ số cuối (100>10) và chỗ gán cho x thế dấu :
==> sửa lại: for i:=10 tờ 100 đô x:=x-i;
6.c sai vì to viết liền với số 200
==> sữa lại: for i:= 100 tờ 200 độ i:=i+5;
6.d đúng
6.d2 thừa i:=0 và còn ko cách chỗ to và 105
sử lại: var n, i:real;
begin n:=0; for i:=5 to 105 do n:=n+1; end.
C1:
Var
a:integer;b: integer;
Begin
a:=0;
Writeln('Hay nhap nam can tinh:');
readln(b);
a:=b-2003;
if a>9 and a<20 then
writeln('Nam dang o trong tuoi vi thanh nien.')
else
writeln('Nam khong o trong tuoi vi thanh nien.');
readln;
end.
program tamgiac;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('nhap ba canh cua tam giac'); readln(a,b,c);
if a+b>c and a+c>b and b+c>a then write(a,' ',b,' ',c 'la ba canh cua tam giac') else write(a,' ',b,' ',c 'khong la ba canh cua tam giac');
readln
end.
Câu 1:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<2 then writeln(n,' khong la so nguyen to')
else begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end;
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n 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);
writeln('So nho nhat la: ',min);
readln;
end.
Program bai1;
uses crt;
var n : integer;
begin
clrscr;
write('nhap so nguyen n ='); readln(n);
if n mod 2 = 0 then writeln(n , ' la so chan ') else
writeln(n , ' la so le ');
readln
end.
Câu 1:
uses crt;
var d,i,n:longint;
a:array[1..100000] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do begin
write('a[',i,']= '); readln(a[i]); end;
write('Nhap x: ');readln(x);
for i:=1 to n do
if a[i]=x then inc(d);
write(d,' so');
readln
end.
Câu 2:
uses crt;
var d,i,n,d1,d2:longint;
a:array[1..1000000] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do begin
write('a[',i,']= '); readln(a[i]); end;
for i:=1 to n do begin
if a[i]>0 then inc(d) else
if a[i]<0 then inc(d1) else
if a[i]=0 then inc(d2); end;
writeln('Co ',d,' so duong');
writeln('Co ',d1,' so am');
write('Co ',d2,' so 0');
readln
end.
Bài 1:
Program Kiem_tra_chan_le;
Uses Crt;
begin
clrscr;
real(a);
If a mod 2 = 0 then write ('Do la so chan');
If a mod 2 = 1 then write ('Do la so le');
readln
end.
Bài 2:
Program Kiem_tra_am_duong;
Uses Crt;
begin
clrscr;
real(b);
If a > 0 then write ('Do la so duong');
If a < 0 then write ('Do la so am');
readln
end.
program tamgiac;
uses crt;
var a,b,c:integer;
begin
write('Nhap chieu dai 3 canh tam giac:'); readln (a,b,c);
if (a=b) and (b=c) and (a=c) then write ('Tam giac deu');
if (a=b) or (b=c) or (a=c) then write('Tam giac can');
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then write('Tam giac vuong');
readln
end.
Chúc bạn học tốt ^^
___Gió Ấm___
nếu vậy mình nhập 45 45 90 thì phải ra tam giác v cân bạn
còn bn chỉ ra đc trg hợp bt thôi
bn k dc binh thuong aaikatsu star
cứ di chuột đến đó thì nó nhảy đến chỗ khác