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 m,n,s,i:integer;
begin
clrscr;
readln(n);
s:=0;
m:=1;
for i:=m to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Program HOC24;
var d,N,i: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0; d:=0;
for i:=1 to n do
begin
t:=t+a[i];
if a[i]>0 then d:=d+1;
end;
writeln('Tong day so la: ',t);
write('Co ',d,' so nguyen duong');
readln
end.
uses crt;
var a:array[1..10]of integer;
i,t:integer;
begin
clrscr;
for i:=1 to 10 do read(a[i]);
t:=0;
for i:=1 to 10 do t:=t+a[i];
write(t);
readln;
end.
uses crt;
var n,i,t,s:integer;
begin
clrscr;
repeat
readln(n);
until n<>0;
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
writeln(t);
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
a) Program dthinhtron;
uses crt;
var r,s:real;
BEGIN
clrscr;
writeln('Nhap ban kinh r: ');
readln(r);
s:=r*r*PI;
writeln('dien tich hin tron la: ',s:8:3,'m2);
readln
END.
b) Program Trung_binh_cong;
Uses crt;
Var a,b,c,d,tbc:real;
Begin
clrscr;
Write('Nhap so thu nhat:'); Readln(a);
Write('Nhap so thu hai:'); Readln(b);
Write('Nhap so thu ba:'); Readln(c);
Write('Nhap so thu tu:'); Readln(d);
tbc:=(a+b+c+d)/4;
Writeln('Trung binh cong cua bon so la:',tbc);
Readln
End.
uses crt;
var a:array[1..100]of real;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day la: ',t:4:2);
writeln('Trung binh cong cua day la: ',t/n:4:2);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac so la: ',t);
readln;
end.
uses crt;
var i,s:integer;
begin
clrscr;
s:=0; i:=1;
while s<2073 do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
Program HOC24;
var i,n: integer;
a: array[1..1000] of integer;
function nt(x: integer): boolean;
var j: integer;
begin
nt:=true;
if (x=2) or (x=3) then exit;
nt:=false;
if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;
j:=5;
while j<=trunc(sqrt(x)) do
begin
if (x mod j=0) or (x mod (j+2)=0) then exit;
j:=j+6;
end;
begin
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 if nt(a[i]) then write(a[i],' ');
readln
end.
Var i,n:integer;
s,so:real;
Begin
Write('Nhap so luong so thuc ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(so);
s:=s+so;
End;
Write('Tong la ',s:10:2);
Readln
End.