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:
#include <bits/stdc++.h>
using namespace std;
long long i,n,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%15==0) t=t+x;
}
cout<<t;
return 0;
}
uses crt;
var i,n,d:longint;
begin
d:=0;
writeln('nhapn=');read(n);
for i:=1 to n do
begin
if i mod 3=0 then write(i,' ');
if i mod 3=0 then d:=d+i;
end;
writeln('tong=',d);
readln;
end;
#include <bits/stdc++.h>
using namespace std;
double a;
int main()
{
cin>>a;
cout<<fixed<<setprecision(2)<<a*a;
return 0;
}
1.Làm tròn số 92,117 đến hàng phần mười được kết quả là:92,1
2.Làm tròn số -845,654 đến hàng phần mười (đến chữ số thập phân thứ nhất) được kết quả là:-845,7
3.Làm tròn số 82,572 đến hàng phần mười được kết quả là:82,6
4.Làm tròn số 82,572 đến hàng phần mười được kết quả là:82,6
5.Làm tròn số -72,882 đến chữ số thập phân thứ nhất được kết quả là:-72,9
uses crt;
var n,s:integer;
begin
clrscr;
s:=0;
n:=0;
while s<=1000 do
begin
n:=n+1;
s:=s+n;
end;
writeln(s);
writeln(n);
readln;
end.
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
program tinh;
uses crt;
var S,i,n:integer;
A: real;
begin
clrscr;
write('Nhap n: '); readln(n);
i:=10;
S:=0;
for i:10 to n do
begin
S:=S+i;
i:=i+5;
end;
S:=S+n;
A:=S/3;
write('Ket qua cua S la: ',S);
writeln;
write('Ket qua cua A la: ',A:1:1);
readln;
end.