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.

10 tháng 12 2021

Giúp mình với

13 tháng 4 2019

Lời giải :

Cấu trúc khai báo biến mảng :

var <biến mảng> := array[<giá trị đầu>..<giá trị cuối>] of <kiểu dữ liệu> ;

Lợi ích : Thuận lợi cho các bài toán như nhập điểm , .......

31 tháng 12 2021

câu 1:

Var a, b: real;

Begin

Clrscr;

Write(‘nhap a=’), read(a);

Write(‘nhap b=’); read(b);

If a+b = 120 then a:=120-b;

Readln

End.

câu 2: 

s = 63

uses crt;

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

n,i:integer;

begin

clrscr;

repeat

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

if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');

until n>0;

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

uses crt;

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

i,n,dem,kt,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then inc(dem);

t:=abs(a[2]-a[1]);

kt:=0;

for i:=1 to n do 

if t<>abs(a[i]-a[i-1]) then 

begin

kt:=1;

break;

end;

if kt=0 then writeln('Day la cap so cong')

else writeln('Day khong la cap so cong');

readln;

end.

18 tháng 1 2022

C1: Một chương trình Pascal gồm 2 phần: phần khai báo và phần thân chương trinh

C2: Từ khóa trong Pascal: program, input, output, var, real, begin, readline, writeline và end

C3:  -Tên không bắt đầu bằng chữ số

        - Tên không có khoảng cách

        - Tên không được trùng với từ khóa

C4: ví dụ tính diện tích hình vuông:

Program HINH_VUONG;
   uses crt;
   Var canh: real;
Begin
    clrscr;
    Write('Nhap do dai canh:');readln(canh);
    Writeln('Chu vi hinh vuong la:',4*canh:10:2);
    Writeln('Dien tich hinh vuong la:',canh*canh:10:2);
    readln
end.

C5:              

     B1: Tải Pascal trên 1 link nhất định       

     B2: Mở thư mục chưa file tải về click đúp (hoặc click phải chuột chọn Install) để tiến hành cài đặt  

    B3:  Chọn Next để sang bước kế tiếp:

    B4: Click vào Browse để lựa chọn ổ đĩa cài đặt. Hoặc không bạn có thể để mặc định và tiếp tục chọn Next.

    B5: Click vào Install để bắt đầu cài đặt.

    B6: Chờ đợi quá trình cài đặt diễn ra trong một vài phút.

    B7: Click vào Finish để hoàn tất quá trình cài đặt.

26 tháng 4 2018

Đáp án đúng : B

6 tháng 7 2017

Đáp án đúng : C