Những câu hỏi liên quan
Nguyễn Phước Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 10 2021 lúc 15:12

a: Cú pháp

b: Ngữ nghĩa

c: ngữ nghĩa, thuật toán

Bình luận (0)
V.Anh
Xem chi tiết
NguyễnHưng
16 tháng 5 2022 lúc 21:17

Câu lệnh điều kiện:

Dạng thiếu:

If < điều kiện > then < câu lệnh >;

Dạng đầy đủ:

If < điều kiện > then < câu lệnh 1 > else < câu lệnh 2 >;

Lệnh lặp:

Biết trước:

For< Biến đếm > := < Giá trị đầu > to< Giá trị cuối > do < Câu lệnh >;

Chưa biết trước:

while < điều kiện > do < câu lệnh >;

Công thức đọc tên là gì mình ko hiểu @@

Câu 4 đưa ra hình điểm của từ người hs là sao mình ko hiểu nên mình cứ cho là in ra toàn bộ điểm từng người hs nhé, có gì bạn xem xét lại xóa khúc đó:

Bài 4 nữa nhưng muốn nhập nhiêu hs thì tùy(tối đa 100, muốn hơn nữa sữa lệnh khai báo mãng) Khiến khích nên dùng bài này vì nó tiện á:

Bình luận (4)
TNhi
Xem chi tiết
Đỗ Trung
Xem chi tiết
Nguyễn Xạ Điêu
1 tháng 10 2016 lúc 21:23

LÀ LỖI : KHI TỪ KHÓA VIẾT NHẦM

Error 15: File not found (SYSTEM.TPU)

 

Bình luận (0)
huyokkkkk
Xem chi tiết
Bbi thành real
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 5 2022 lúc 10:53

uses crt;

var i,n,kt:integer;

begin

clrscr;

readln(n);

kt:=0;

for i=2 to trunc(sqrt(n)) do 

 if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then write('phai')

else write('Khong phai');

readln;

end.

Bình luận (0)
Kiều Vũ Linh
14 tháng 5 2022 lúc 13:26

Var i,n,souoc:integer;

Begin

While n <= 1 do

Begin

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

End;

For i:=1 to n do

If n mod i = 0 then souoc:=souoc+1;

If souoc = 2 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

Bình luận (0)
hfjsdhajdfhsjfhsdj
Xem chi tiết
Dark_Hole
18 tháng 2 2022 lúc 10:18

Tham khảo: 

program ct;

uses crt;

var a,b,h,S:integer;

begin clrscr;

   writeln('Nhap do dai hai day: '); readln(a,b);

   writel('Nhap chieu cao: '); readln(h);

     S:=h*((a+b)/2);

   writeln('Dien tich hinh thang do la: ',S);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 10:40

uses crt;

var s,a,b,h:real;

begin

clrscr;

readln(a,b,h);

s:=(a+b)/2*h;

writeln(s:4:2);

readln;

end.

Bình luận (1)
Quỳnh Anh
Xem chi tiết
Quỳnh Anh
8 tháng 11 2021 lúc 22:06

Giúp mình với Kudo Shinichi AKIRA^_^

Bình luận (0)
Nguyễn Lê Phước Thịnh
8 tháng 11 2021 lúc 23:13

Chọn B

Bình luận (0)
Bích Nguyễn Hồng Ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 10 2021 lúc 1:32

Chọn D

Bình luận (0)
Vương Duy Quang
Xem chi tiết
lynn?
8 tháng 5 2022 lúc 20:09

C

Bình luận (0)
ka nekk
8 tháng 5 2022 lúc 20:10

c

Bình luận (0)
Trương Quỳnh Như
8 tháng 5 2022 lúc 20:10

C

Bình luận (0)