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.
Var n,sc,sl,i:longint;
Begin
Write('N = ');readln(n);
Write('Cac so tu 1 den ',n,' la ');
For i:=1 to n do
Write(i:8);
Writeln;
For i:=1 to n do
Begin
If i mod 2 = 0 then sc:=sc+i
Else sl:=sl+i;
End;
Writeln('Tong cac so chan la ',sc);
Write('Tong cac so le la ',sl);
Readln
End.
1:
#include <bits/stdc++.h>
using namespace std;
long long a[100],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
cout<<"Day ban dau la: "<<endl;
for (i=1;i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
sort(a+1,a+n+1);
cout<<"Day tang dan la: "<<endl;
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long a,b,bcnn;
int main()
{
cin>>a>>b;
if (a>b) swap(a,b);
bcnn=b;
while (bcnn%a!=0)
bcnn=bcnn+b;
cout<<bcnn;
return 0;
}
Bài làm:
Bài 1:
1) Thông tin em vừa nhận được là trời sắp mưa
2) Em biết trực tiếp từ vật mang tin, đó là: mây đen, gió mạnh.
~ Chúc bn hok tốt nha !!!!!!!!!~
1) Thông tin nhận là mây đen kéo bao phủ bầu trời
2) Vật mang tin là gió mạnh nổi lên
HT
1:
uses crt;
var a,dt,cv:real;
begin
clrscr;
write('nhap canh hinh vuong:'); readln(a);
if a<=0 then writeln('vui long nhap lai')
else begin
cv:=a*4;
dt:=sqr(a);
writeln('chu vi hinh vuong la: ',cv:10:4);
writeln('dien tich hinh vuong la: ',dt:10:4);
if dt mod 2=0 then writeln('hinh vuong chan')
else writeln('hinh vuong le');
end;
readln;
end.
2:
uses crt;
var x,y,z,s1,s2:integer;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
write('z='); readln(z);
if (x<0) and (y<0) and (z<0) then
begin
s1:=3*x+2*y;
writeln('tong s1=',s1);
s2:=6-7*y;
writeln('tong s2=',s2);
end
else writeln('vui long nhap cac so am');
readln;
end.
3:
uses crt;
var a,b,c,t:integer;
begin
clrscr;
write('nhap so loi di hoc muon:'); readln(a);
write('nhap so loi khong deo the:'); readln(b);
write('nhap so loi khong doi mu bao hiem:'); readln(c);
t:=a*5+b*5+c*15;
writeln('tong so diem lop 11a7 bi tru la: ',t);
if t<=10 then writeln('cuoi dot lop se to chuc lien hoan')
else writeln('cuoi dot lop se khong to chuc lien hoan');
readln;
end.