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.
Uses crt;
Var A:array[1..10] of integer;
Tong,Tongle,Tongchan,i:integer;
Begin
Clrscr;
Tong:=0;
Tongchan:=0;
Tongle:=0;
For i:=1 to 10 do
Begin
Write('a[',i,'] : ');Readln(a[i]);
Tong:=Tong+a[i];
If a[i] mod 2 = 0 then
Tongchan:=Tongchan+a[i]
Else
Tongle:=Tongle+a[i];
Clrscr;
End;
Writeln('Tong cac phan tu : ',Tong);
Writeln('Tong cac phan tu le : ',Tongle);
Writeln('Tong cac phan tu chan : ',Tongchan);
End.
{ Có gì sai sót cho mình xin lỗi =) }
thi ban co nho lai mat khau la j , ban nho xem ban co doi mat khau ko
mik gõ r mà mik chắc chắc 100% mật khẩu đó đúng . À mà mik lấy nick em mik vào trang của mik thì nó để là Nick đã bị đổi chủ! !
uses crt;
var S,n,i; integer;
begin
clrscr;
repeat
writeln('Nhap n = '); read(n);
until n<1000000000;
i:=n-1;
While i<n do
begin
S := 0; While ( i <> 0 ) do
Begin k := i mod 10;
i := i div 10;
S := S + k;
end;
end;
if S = 10 then write(i);
readln
end.
Câu 1:
Program HOC24;
var i,n: integer;
t: longint;
write('Nhap N: '); readln(n);
t:=1;
for i:=1 to n do t:=t*i;
write(n,'! = ',t);
readln
end.
Var i,n:integer;
S:real;
Begin
Write (' nhap n :');
Readln(n);
S:=1;
For i:= 1 to n do S:= S+1/i;
Writeln (' tong S:',S);
Readln;
end.
1:
uses crt;
var a,b,du,thuong:integer;
begin
clrscr;
write('nhap so bi chia:'); readln(a);
repeat
write('nhap so chia:'); readln(b);
if b=0 then writeln('ban da nhap sai,yeu cau ban nhap lai');
until b<>0;
du:=a mod b;
thuong:=a div b;
writeln('so du cua phep chia ',a,' cho ',b,' la: ',du);
writeln('thuong cua phep chia ',a,' cho ',b,' la: ',thuong);
readln;
end.
2:
uses crt;
var a,b,tam:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
writeln('gia tri luc dau cua a la: ',a);
writeln('gia tri luc dau cua b la: ',b);
tam:=a;
a:=b;
b:=tam;
writeln('gia tri sau khi doi cua a la: ',a);
writeln('gia tri sau khi doi cua b la: ',b);
readln;
end.
3:
uses crt;
var a:integer;
t:longint;
begin
clrscr;
write('nhap so luong don gia: '); readln(a);
t:=a*50000;
writeln('tong so tien la: ',t);
readln;
end.
4:
uses crt;
var a,b,t:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
t:=a+b;
writeln('tong cua hai so ',a,' va ',b,' la: ',t);
readln;
end.
5:
uses crt;
var a,b,cv:integer;
begin
clrscr;
repeat
write('nhap chieu dai:'); readln(a);
write('nhap chieu rong:'); readln(b);
if (a<=b) or (a<=0) or (b<=0) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (a>b) and (a>0) and (b>0);
cv:=a*b;
writeln('chu vi hinh chu nhat la: ',cv);
readln;
end.
6:
uses crt;
var a,cv:integer;
begin
clrscr;
repeat
write('nhap canh hinh vuong:'); readln(a);
if a<=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until a>0;
cv:=a*4;
writeln('chu vi hinh vuong co canh ',a,'cm la: ',cv);
readln;
end.
7:
uses crt;
var a,b,thuong:integer;
begin
clrscr;
write('nhap so bi chia: '); readln(a);
repeat
write('nhap so chia: '); readln(b);
if b=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until b<>0;
thuong:=a div b;
writeln('thuong cua phep chia ',a,' cho ',b,' la: ',thuong);
readln;
end.
8:
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a<b then writeln(a,' be hon ',b);
if a>b then writeln(a,' lon hon ',b);
if a=b then writeln(a,' bang ',b);
readln;
end.
uses crt;
var s:real;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=3 to n do
if i mod 2=1 then s:=s+2/(i*(i+2));
writeln('Ket qua la: ',s:4:2);
readln;
end.