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

10 tháng 5 2023

Câu 58:

Var n:integer;

Begin

Write('n = ');readln(n);

If n mod 2 <> 0 then write(n,' la so le')

Else write(n,' khong la so le');

Readln

End.

10 tháng 5 2023

Câu 61:

Var n:integer;

Begin

Write('n = ');readln(n);

If n mod 2 = 0 then write(n,' la so chan')

Else write(n,' khong la so chan');

Readln

End.

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.

17 tháng 12 2017

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.

17 tháng 12 2017

what dờ phắc

10 tháng 5 2023

Bài 1

Var a:array:[1..99] of integer;

i,n:integer;

s:longint;

Begin

Repeat

Write('n = ');readln(n);

Until (n > 0) and (n < 100);

For i:=1 to n do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

if a[i] mod 2 = 0 then s:=s+a[i];

End;

Write('Cac so vua nhap la: ');

For i:=1 to n do 

Write(a[i]:8);

writeln;

write('Tong cac so chan la ',s);

Readln

End.

10 tháng 5 2023

Bài 2

Var a:array:[1..99] of integer;

i,n:integer;

s:longint;

Begin

Repeat

Write('n = ');readln(n);

Until (n > 0) and (n < 100);

For i:=1 to n do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

if a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write('Cac so vua nhap la: ');

For i:=1 to n do 

Write(a[i]:8);

writeln;

write('Tong cac so le la ',s);

Readln

End.

18 tháng 12 2017

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.

18 tháng 12 2017

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.

D
datcoder
CTVVIP
7 tháng 12 2023

Bạn kiểm tra lại đề nha; M, N có liên quan gì đến tổng S bạn nhỉ?

10 tháng 1 2022

clrscr;

10 tháng 1 2022

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.

10 tháng 12 2021

Giúp mình với