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 i,n,s: integer;
a:array[1..100] of integer;
begin
writeln('Nhap n: '); read(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
writeln('Cac so le: ')
s:=0;
for i:=1 to n do
if a[i] mod 2 <> 0 then
begin
s:=s+a[i];
write(a[i],' ');
end;
writeln('- Tong so le: ',s);
for i:=1 to trunc(sqrt(s)) do if s mod i = 0 then d:=d+1;
if d > 1 then writeln('Tong do khong la so nguyen to') else writeln('Tong do la so nguyen to');
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;
}
program Phantichso;
var N, i, m, a:Longint;
dem: Integer;
Begin
write('Nhap N: ');
readln(N);
dem:=0;
for i:= 1 to N div 2 do
if (2*N-i*(i+1)) mod (2*(i+1)) = 0 then
Begin
a:= (2*N-i*(i+1)) div (2*(i+1));
inc(dem);
if (a>0) then
Begin
writeln('Cach thu ', dem);
for m:=a to a+i-1 do
write(m, '+');
writeln(m+1);
End;
End;
End.
ko cần liệt kê ra số cách đâu! nhưng cũng cảm ơn bạn!!!!!!
a)
uses crt;
VAR
n, d, i: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
d : = 1;
For i: = 1 to n do
d: = d*i;
Writeln ('d=',d);
Readln;
END.
c)
uses crt;
VAR
n, i, demuoc: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
demuoc: = 0;
For i: = 1 to n do
If n mod i = 0 then
demuoc : = demuoc + 1;
If demuoc = 2 then
Writeln ('n la so nguyen to')
ELSE
Writeln ('n khong phai la so nguyen to');
Readln ;
END.
Còn phần b bạn tự nghĩ nha!
Chúc bạn học tốt!
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if ((x<0) and (x%2!=0)) t=t+x;
}
cout<<t;
return 0;
}
uses crt;
const fi='bai1.inp';
var f1:text;
a,b,c,cv,dt,p:real;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
cv:=a+b+c;
p:=cv/2;
dt:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(f1,'Chu vi la: ',cv:4:2);
writeln(f1,'Dien tich la: ',dt:4:2);
end
else writeln(f1,'Day khong la ba canh trong mot tam giac');
close(f1);
readln;
end.
cho em hỏi cái này viết ra thuật toán thì viết kiểu sao ạ
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%5==0) t+=x;
}
cout<<t;
return 0;
}
var a,b,s,p:integer;beginwrite('a=');readln(a);write('b=');readln(b);s:=a+b;p:=a*b;writeln(' Tong la: ',s);writeln(' Tich la: ',p);if (s mod 5=0) and (s mod 9=0) then writeln(' Tong chia het cho 5 va 9 ')else writeln(' Tong k chia het cho 5 va 9 ');if (p mod 5=0) and (p mod 9=0) then writeln(' Tich chia het cho 5 va 9')else writeln(' Tich k chia het cho 5 va 9');readln;end.
var a,b,s,p:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
s:=a+b;
p:=a*b;
writeln(' Tong la: ',s);
writeln(' Tich la: ',p);
if (s mod 5=0) and (s mod 9=0) then writeln(' Tong chia het cho 5 va 9 ')
else writeln(' Tong k chia het cho 5 va 9 ');
if (p mod 5=0) and (p mod 9=0) then writeln(' Tich chia het cho 5 va 9')
else writeln(' Tich k chia het cho 5 va 9');
readln;
end.