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 i,a,b;
int main()
{
cin>>a>>b;
for (i=1; i<=min(a,b); i++)
if ((a%i==0) and (b%i==0)) cout<<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;
}
const fi='input.txt';
fo='output.txt';
var f1,f2:text;
a,b,s:longint;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
s:=a*b;
writeln(f2,s);
close(f1);
close(f2);
end.
Mệnh đề nào dưới đây là đúng?
(A) Hai tệp nằm ở hai thư mục khác nhau có thể được đặt tên trùng nhau
(B) Một thư mục và 1 tệp nằm ở hai đường dẫn khác nhau có thể được đặt tên trùng nhau
(C) Tên tệp gồm 2 phần: phần tên dùng để nhận biết kiểu tệp còn phần mở rộng ( đuôi ) dùng để phân biệt các tệp vs nhau
(D) Tên tệp do người dùng đặt nhưng không thể chứa dấu 2 chấm':'
(E) Tên ổ đĩa do hệ điều hành đặt và không thể chứa dấu 2 chấm':'
(F) Lưu trữ các tệp dưới dạng cây thư mục cho phép tìm các tệp dễ dàng và nhanh chóng
(G) Tổ chức thông tinh dạng cây cho phép tiết kiệm dung lượng lưu trữ của ổ đĩa
uses crt;
var a:array[1..15]of integer;
n:integer;
begin
clrscr;
n:=1;
a[1]:=3;
repeat
n:=n+2;
a[n]:=a[n-1]+3;
until a[n]>40;
for i:=1 to n-1 do
write(a[i]:4);
readln;
end.
uses crt;
const fi='dayso.txt';
var f1:text;
a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
inc(n);
read(f1,a[n]);
end;
writeln('Binh phuong cac so nguyen trong day lan luot la: ');
for i:=1 to n do
write(sqr(a[i]:4);
close(f1);
readln;
end.