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.
THAM KHẢO:
uses crt;
var a,cv,dt:integer;
begin
clrscr;
write('a='); readln(a);
cv:=a*4;
dt:=sqr(a);
if a>0 then
begin
writeln('chu vi hinh vuong la: ',cv);
writeln('dien tich hinh vuong la: ',dt);
end
else writeln('vui long nhap so a lon hon 0');
readln;
end.
Bài 1 :
Uses crt;
Var x,y:integer;
Begin
clrscr;
Readln(x,y);
Write('Tong cua x,y la ',x+y);
Readln
End.
Bài 2 :
Uses CRT;
var x,y,z:integer; tbc:real;
begin
clrscr;
readln(x,y,z);
tbc:=(a+b+c)/3;
Write('Trung binh cong x,y,z la ',tbc:4:2);
Readln
End.
Bạn kiểm tra lại đề nha; M, N có liên quan gì đến tổng S bạn nhỉ?
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');
until n>0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
uses crt;
var
a,b: integer;
begin
clrscr;
write('Nhap so thu nhat: ');readln(a);
write('Nhap so thu hai: ');readln(b);
writeln('Tong ',a,' va ',b,' la: ',a+b);
readln
end.
Câu 1:
Var
cv,s,a:integer;
begin
write('nhap vao canh hinh vuong:');readln(a);
s:=a*a;
cv:=a*4;
Writeln('chu vi hinh vuong la:',cv);
WRiteln('dien tich hinh vuong la:',s);
readln
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.
1.
program c1;
uses crt;
const namnay=2019;
namsinh=2003;
var tuoi:integer;
begin
clrscr;
tuoi:=namnay-namsinh;
if 10<=tuoi and 19>=tuoi then write('Nam o tuoi vi thanh nien ') else write('Nam khong o tuoi vi thanh nien');
readln
end.
C3:
Var
A:integer;n:integer;i:integer;
Begin
A:=0;
Writeln('Hay nhap so nguyen duong n:');
readln(n);
i:=1;
While i<=n do
A:=A+n;
writeln('Tong A bang:', A:10:4);
readln;
end.
var a,b,c:integer;
begin
write('so abc la:');
for a:=1 to 9 do
for b:=1 to 9 do
for c:=1 to 9 do
if a*100+b*10+c=a*a*a+b*b*b+c*c*c+3*a*b*c then write(a,b,c);
readln
end.
program cau3;
var i,n,A:integer;
begin
write('nhap n='); readln(n);
A:=0; i:=1;
while i<=n do
begin
A:=A+i;
i:=i+1;
end;
write('ket qua la:',A);
readln
end.
.
C2:
Var
a,b,c: integer;S:integer;
Begin
Writeln('Hay nhap a:');
readln(a);
Writeln('Hay nhap b:');
readln(b);
Writeln('Hay nhap c:');
readln(c);
S:=a^3+b^3+c^3+3abc;
Writeln('So abc la:', S:10:4);
readln;
end.
no no no đề là tìm abc không yêu cầu là nhập abc nha bạn
nếu bạn có 1 cách làm khác nữa mình sẽ tặng bạn thêm 1GP cho câu trả lời này
Bastkoo abc=a^3+b^3+c^3+3abc mà. Không nhập thì làm sao mà tìm?
Bạn làm đúng rồi nhưng có 1 gợi ý nhỏ bạn nên viết write('Nhap nam hien tai'); thì sẽ hay hơn nhưng cũng ko có vấn đề j về bài bạn . Bài bạn làm hoàn toàn đúng
Bastkoo Cảm ơn.
có bạn trả lời rồi bạn tham khảo nha
Ừ.
? Bạn gán i:=1 rồi sao lên tăng được bạn
với bài này bạn ko nên làm hằng vì hằng ko bao h thay đổi , vì số tuổi của nam cx thay đổi cũng như năm hiện tại sẽ thay đổi
Như vậy bài làm của event này đã có kết quả phần thưởng qua lần kiểm tra bài làm như sau :
Câu 1 : Luân Đào (1GP) ; Nguyen (1GP)
Câu 2 : híp (1GP) ; Nguyen (bài làm sai và ý tưởng chưa đúng)
Câu 3 : híp (2GP) ; Nguyen (Bài làm tương đối có ý tưởng tốt 1GP)
trả lời thêm 1 cái nx bạn ơi
uk