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.
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.
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.
var x, i : integer;
begin
writeln('nhap so nguyen x : ')
read(x);
if ( x < 2) then writeln(' x khong phai so nguyen to');
else if ( x > 2) then
begin
for i := 2 to ( x - 1) do
begin
if ( x mod i = 0) then writeln(' x khong la so nguyen to');
end;
end;
else
writeln(' x la so nguyen to');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n;
//chuongtrinhcon
bool ktnt(long long n)
{
if (n<2) return(false);
else
for (int i=2; i*i<=n;i++)
if (n%i==0) return (false);
return(true);
}
//chuongtrinhchinh
int main()
{
//freopen("KTSNT.INP","r",stdin);
//freopen("KTSNT.OUT","w",stdout);
cin>>n;
if (ktnt(n)==true) cout<<"1";
else cout<<"0";
return 0;
}
var a,b,c:integer;
begin
write('a = ');readln(a);
write('b = ');readln(b);
write('c = ');readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
write('ba so do co the la do dai ba canh cua tam giac')
else write('ba so do khong the la do dai ba canh cua tam giac');
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.
uses crt;
var a,b,c: integer;
begin
clrscr;
write('Nhap ngay; thang; nam :'); readln(a,b,c);
if (a>=1) and (a<=31) then write('Ngay hop le');
if (b>=1) and (b<=12) then write('Thang hop le');
if (c>=0) and (c<=2021) then write('Nam hop le');
readln
end.
uses crt;
var a,b,c: integer;
begin
clrscr;
write('Nhap ngay; thang; nam :'); readln(a,b,c);
if (a>=1) and (a<=31) then write('Ngay hop le');
if (b>=1) and (b<=12) then write('Thang hop le');
if (c>=0) and (c<=2021) then write('Nam hop le');
readln
end.
 | Trả lờiChuyển tiếp |
bn k dc binh thuong aaikatsu star
cứ di chuột đến đó thì nó nhảy đến chỗ khác