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 a,b:longint;
Begin
clrscr;
Writeln('Nhap a,b=');
Readln(a,b);
writeln('tich hai so la : a*b=',a*b);
writeln('thuong hai so la :a/b=',a/b);
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.

#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;
}

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

Thao tác thực hiện | Tên thao tác |
1. Nháy chuột vào tên của tệp, nháy chuột một lần nữa, gõ tên mới rồi nhấn Enter | Đổi tên tệp |
2. Chọn tệp tin , Nháy phải chuột chọn copy, Chuyển đến thư mục sẽ chứa tệp , Nháy phải chuột chọn lệnh Paste | Sao chép têp tin vào thư mục |
3. Chọn tệp tin , Nháy phải chuột chọn Cut, Chuyển đến thư mục sẽ chứa tệp , Nháy phải chuột và chọn lệnh Paste | Di chuyển tệp tin vào thư mục |
4. Nháy chuột vào tên thư mục, ấn Detele | Xóa thư mục |
5. Mở thư mục chứa sẽ chứa thư mục đó, Nháy nút phải chuột tại vùng trống chọn New sau đó chọn Folder, gõ tên thư mục rồi ấn Enter | Tạo thư mục m |

#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;
}

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.
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.