K
Khách

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.

18 tháng 10 2021

!@##%%^#%#@^$($%#$^$%$$#^#%T^^U$

18 tháng 10 2021

2125151616151611

19 tháng 12 2021

uses crt;

var m,n:integer;

begin

clrscr;

readln(m,n);

if (m>n) cout<<"m lon hon"

else cout<<"n lon hon";

readln;

end.

30 tháng 12 2022

Input: a,b

Output: max,min của hai số a,b

9 tháng 7 2023
program Bai_toan; Uses Crt; var a: integer; begin   Clrscr; writeln('Nhập số nguyên a:'); readln(a); writeln('Số lớn gấp đôi số a là:', a * 2); end.
9 tháng 7 2023

sao ko xuống dòng đc vậy

13 tháng 12 2020

uses crt;

var a,b,ucln,bcnn,i:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

ucln:=1;

if a<b then begin

                        for i:=1 to a do

                           if (a mod i=0) and (b mod i=0) then                                             begin

                                     if ucln<i then ucln:=i;            

                               end;    

                   end else begin

              for i:=1 to b do

                  if (a mod i=0) and (b mod i=0) then

                      begin

                           if ucln<i then ucln:=i;

                      end;      

       end;

bcnn:=a*b;

for i:=a*b-1 downto 1 do  

   if (i mod a=0) and (i mod b=0) then      

       begin

             if bcnn>i then bcnn:=i;      

       end;

writeln('Uoc chung lon nhat la: ',ucln); 

writeln('Boi chung nho nhat la: ',bcnn);

readln;

end.

13 tháng 12 2020

cảm ơn

Câu 1: Trong Pascal, khai báo nào sau đây là đúng?        A. var tb: real;  B. const x: real,   C. var R=30;  D. var  4hs: integer;Câu 2: Cho biết kết quả của biểu thức sau: (21 mod 3) div 2 + (15 div 4)        A. 10                 B. 4                    C. 5                    D. 3Câu 3 : Cho biết kết quả trả về của biểu thức sau: 20 mod (3 div 2) + (15 mod 4)        A. 4                    B. 10                  C. 3                    D. 5Câu 4: Để khai báo...
Đọc tiếp

Câu 1: Trong Pascal, khai báo nào sau đây là đúng?

        A. var tb: real;  B. const x: real,   C. var R=30;  D. var  4hs: integer;

Câu 2: Cho biết kết quả của biểu thức sau: (21 mod 3) div 2 + (15 div 4)

        A. 10                 B. 4                    C. 5                    D. 3

Câu 3 : Cho biết kết quả trả về của biểu thức sau: 20 mod (3 div 2) + (15 mod 4)

        A. 4                    B. 10                  C. 3                    D. 5

Câu 4: Để khai báo biến x thuộc kiểu số thực ta khai báo:

A. Var x: String;  B. Var x: Real;  C. Var x: Char;     D. Var x: integer;

(giup mk nhé mk cân gấp ạ)

2
21 tháng 11 2021

1a

21 tháng 11 2021

pascal thì mình chịu

25 tháng 4 2021

ví dụ:

uses crt;

var a:array[1..100]of integer;

i,n,d,j,kt:integer;

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  begin

str(a[i],st);

d:=length(st);

kt:=0;

for j:=1 to d do 

  if st[j]<>st[d-j+1] then kt:=1;

if kt=0 then write(st:4);

end;

readln;

end.

26 tháng 5 2021

program max_min;

uses crt;

var i,n,max,min:integer;

a:array[1..100]of integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:3);

writeln;

max:=a[1];min:=a[1];

for i:=1 to n do

begin

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i];

end;

writeln('gia tri lon nhat: ',max,' gia tri nho nhat: ',min);

readln;

end.

7 tháng 6 2021

uses crt;
var a:array[1..1000000] of longint;
      n,i,max,min:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      write('Day so vua nhap: ');
      for i:=1 to n do write(a[i],' '); writeln;
      max:=a[1];min:=a[1];
      for i:=2 to n do 
            begin
                  if a[i]>max then max:=a[i];
                  if a[i]<min then min:=a[i];
            end;
      writeln('GTLN: ',max);
      writeln('GTNN: ',min);
      readln;
end.

11 tháng 12 2021

giúp Mình vs.

Mình cần gấp lắm

 

11 tháng 12 2021

Chỉ cần hai biến a,b kiểu nguyên là đủ rồi