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.
Bài 1:
function canbac2(x:longint):real;
begin
canbac2:=sqrt(x);
end;
Bài 2:
function tong(n:longint):longint;
var s,i:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i;
tong:=s;
end;
bprogram min
uses crt
var A: array [1...250] of integer
tong :integer;
begin
tong:=0
writeln(‘nhap n:’); readln (n)
forr i:=1 to n do
begin
writeln (‘nhap phan tu thu ‘,i);
readln (A[i] );
end
for i:=1 to n do
begin
if (A[i] mod 3=0)
then tong:=tong +A[i];
end
writeln (Tong cac phan tu chia het cho 3)
readln ;
end
uses crt;
var i,n:integer;
s,t:real;
begin
clrscr;
readln(n);
s:=0.5;
for i:=2 to n do
s:=s+1/(i+1);
writeln('tong la: ',s:5:2);
readln;
end.
uses crt;
var n,i,s:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Ket qua la: ',s);
readln;
end.
Bài 3:
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=sqrt(n); i++)
if (i==n/i) t=t+i;
else t=t+i+n/i;
if (t==n) cout<<"Day la so hoan hao";
else cout<<"Day khong la so hoan hao";
return 0;
}
uses crt;
var a:array[1..50]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if (a[i] mod 3=0) and (a[i] mod 5<>0) then
begin
t:=t+a[i];
dem:=dem+1;
end;
writeln('Trung binh cong cua cac so chia het cho 3 va khong chia het cho 5 la: ',t/dem:4:2);
readln;
end.