clrscr;

Tham khảo:

-lệnh dùng để xóa màn hình làm việc:

Uses Crt ; { khai báo thư viện hàm }

Clrscr; { lệnh xóa màn hình kết quả }

- hai lệnh này dùng song song vs nhau nha.

VD:

Program vi_du;

uses crt;

var i,n: integer;

s: real;

begin

clrscr;

write('nhap so n ='); readln(n);

s:=0;

for i:= 1 to n do

s:=s+i;

writeln(s :4:2);

readln;

end.

Chọn D

#include <bits/stdc++.h>

using namespace std;

long long m,n;

int main()

{

cin>>m>>n;

if (m%n==0) cout<<m/n;

else if (n%m==0) cout<<n/m;

else cout<<m+n;

return 0;

}

Mình viết phần thân thôi nha

n khai báo là interger

n:=0;

While n<>100 do

 Begin

 Write(n,' ');

 inc(n);

 end;

PROGRAM LOSER;
USES crt;
VAR  
  i:Bytbe;
BEGIN
 clrssr ();
 i:=1;
 while i <100 do
 BEGIN
 write('',i);
 i:=i+1;
 End;
Readln;
END.

( uy tín chạy được em nha)

Em cần sử dụng thao tác nháy đúp chuột trong những tình huống nào sau đây?

A. Khởi động một phần mềm trên màn hình nền.

B. Chọn lệnh New Folder trên dải lệnh Home của cửa sổ làm việc với tệp và thư mục để tạo thư mục mới.

C. Mở một thư mục trên máy tính.

Câu 1:
Var a:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
If (a mod 2)=0 then writeln(a,'chia het cho 2') else (a,' khong chia het cho 2');
Readln;
End.

Câu 2:
Var S,a,b,c:Integer;
Begin
Writeln('Nhap a: '); readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
S:=a+b+c;
Writeln('Tong cua ba so la: ',S);
Readln;
End.

Câu 3:
Var a,b,c:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
If (a mod 2)=0 then writeln(a,' la so chan') else (a,' la so le');
If (b mod 2)=0 then writeln(b,' la so chan') else (b,' la so le');
If (c mod 2)=0 then writeln(c,' la so chan') else (c,' la so le');
Readln;
End.

what dờ phắc

Bộ phận nào sau đây của máy tính dùng để nhập thông tin?

A. Màn hình.                 B. Bàn phím.                    C.Thân máy.

1)Program songuyenduong;

Uses crt;

Var y: integer;

Begin

clrscr;

writeln('nhap so y'); readln(y);

if (y mode 5)=0 then writeln(y,'chia het cho 5')else write(y,' khong chia het cho 5');

readln;

End.

2)

Program solonnhat;

uses crt;

var m,n,h,max: real;

Begin

clrscr;

writeln('nhap so m'); readln(m);

writeln('nhap so n'); readln(n);

writeln('nhap so h'); readln(h);

max:=m;

if m < n then max:=n;

if max < h then max=h then write('so lon nhat',max);

readln;

End.

3)

Progam sapxep;

uses crt;

var x,y: integer;

begin

clrscr;

write('nhap so x'); readln(x);

write('nhap so y'); readln(y);

if x<y then write(x,' ',y);

if x>y then write(y,' ',x) else write(x,' ',y);

end.

#inclue <bits/stdc++.h>

using namespace std;

double a;

int main()

{

cin>>a;

if (a<=0) cout<<"khong phai";

else cout<<fixed<<setprecision(2)<<a*a;

return 0;

}

code bằng python

a = input('nhap a ')

if a>0:

    print('a la canh cua hinh vuong. Dien tich S = ', a**2)

else:

    print('a khong phai la canh hinh vuong')