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.
Var
m,n,i,j,h,dem:integer;
Begin
writeln('Hay nhap m:');
readln(m);
writeln('Hay nhap n:');
readln(n);
if m<n
for i:=m to n do
if i>0 Then
begin
Writeln('Cac so nguyen to tu 2 den ',n,' la:');
for j:=2 to i Do
begin
dem:=0;
for h:= 1 to j do if j mod h=0 then dem:=dem+1;
if dem=2 then write(j,' ');
end;
readln;
end.
program so_nguyen_to;
uses crt;
var i,n:integer;
function kt(n:integer):boolean;
var i,j:integer;
begin
j:=0;
for i:=1 to n do
if n mod i=0 then inc(j);
if j=2 then kt:=true
else kt:=false;
end;
BEGIN
clrscr;
write('nhap n:');readln(n);
if kt(n) then writeln(n,' la so nguyen to')
else writeln(n,' khong phai la so nguyen to');
writeln('cac so nguyen to be hon hoac bang ',n,' la:');
for i:=1 to n do
if kt(i) then write(i:5);
writeln;
writeln('cac cap so le lien tiep la so nguyen to be hon hoac bang ',n,' la:');
for i:=1 to n do
if (i mod 2=1) and (kt(i)) and (kt(i+2)) then write(i,',',i+2);
readln;
end.
Program ct; USES CRT; Var n,i: Integer; A:array[1..10] of integer; 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 Write(A[i]); Readln; End.
( Nếu đề chỉ yêu cầu là nhập 10 phần tử thì không cần khai báo n và thay n -> 10 trong câu lệnh for...do. Còn đề yêu cầu in n phần tử thì làm như trên).
1.
var n:longint;
begin
write('Nhap n = ');
read(n);
if n mod 2=0 then writeln('n chia het cho 2')
else writeln('n khong chia het cho 2');
end.
2. (Bài này làm mảng dễ hơn nha)
var a,b,c:longint;
begin
read(a,b,c);
if (a>=b) and (b>=c) then writeln(c,' ',b,' ',a)
else if (a>=b) and (a>=c) then writeln(b,' ',c,' ',a)
else if (a>=b) then writeln(b,' ',a,' ',c)
else if (a>=c) then writeln(c,' ',a,' ',b)
else if (b>=c) then writeln(a,' ',c,' ',b)
else writeln(a,' ',b,' ',c);
end.
3.
var i,n,tong:longint;
begin
write('Nhap n = ');
read(n);
for i:=1 to n do
tong:=tong+i;
write(tong);
end.
uses crt;var n: longint; chrn: string; valn,sum,max,i,preperror: byte;begin write('Nhap so can kiem tra: '); readln(n); str(n,chrn); for i:=1 to length(chrn) do begin val(chrn[i],valn,preperror); sum:=sum+valn; if max<valn then max:=valn; valn:=0 end; writeln('Ket qua: '); writeln(length(chrn)); writeln(sum); write(max); readln;end.uses crt;var n: longint; chrn: string; valn,sum,max,i,preperror: byte;begin write('Nhap so can kiem tra: '); readln(n); str(n,chrn); for i:=1 to length(chrn) do begin val(chrn[i],valn,preperror); sum:=sum+valn; if max<valn then max:=valn; valn:=0 end; writeln('Ket qua: '); writeln(length(chrn)); writeln(sum); write(max); readln;end.
Program HOC24;
var N:longint;
max,tg,t,d: integer;
Begin
write('Nhap N : '); readln(N);
max:=0;
while n<>0 do
begin
tg:=n mod 10;
d:=d+1;
t:=t+tg;
if tg>max then max:=tg;
n:=n div 10;
end;
writeln('So nguyen N co ',d,' chu so');
writeln('Tong cac chu so cua N la : ',t);
write('Chu so lon nhat cua N la :',max);
readln
end.
Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if (n mod 2<>0) then
write(i:2);
readln;
end.
giúp mk vs( một câu cũng đc)1)
var a,b : integer;
begin
writeln('nhap a va b =');
readln(a,b);
if a>b then writeln('So lon hon la a') else writeln('so lon hon la b');
if a=b then writeln('a va b bang nhau');
readln
end.
a)
uses crt;
var n,i,kt,j:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>1;
writeln('Cac so nguyen to be hon hoac bang ',n,' la: ');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.