NT
0
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
VP
1
20 tháng 2 2022
Bài 2:
a: Input: 50 số từ 1 đến 50
Output: Tổng các số nguyên tố
c: Viết chương trình:
uses crt;
var i,j,t,kt:integer;
begin
clrscr;
t:=0;
for i:=2 to 50 do
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
writeln(t);
readln;
end.
25 tháng 12 2021
uses crt;
var t,s:real;
begin
clrscr;
readln(t,s);
writeln('a=',(t+s)/2);
writeln('b=',(t-s)/2);
readln;
end.
13 tháng 9 2023
Trong chương trình này, ta sử dụng các biến quangduong và thoigian để lưu trữ giá trị quãng đường và thời gian. Bằng cách sử dụng khối ask and wait và set, người dùng sẽ được hỏi để nhập giá trị quãng đường và thời gian. Sau đó, chương trình sử dụng khối set và toán tử / để tính toán giá trị vận tốc và lưu vào biến speed. Cuối cùng, chương trình sử dụng khối say để hiển thị giá trị vận tốc lên màn hình.
Để chạy chương trình, ta có thể nhấn vào biểu tượng mũi tên xanh để bắt đầu chương trình. Sau đó, nhập giá trị của quãng đường và thời gian theo yêu cầu của chương trình và chờ đợi cho kết quả. Khi chương trình tính toán xong, giá trị vận tốc sẽ được hiển thị lên màn hình.
26 tháng 2 2021
Nó là từ khóa ( không bắt buộc có thể thay)
Crt là tên thứ viện
Clrscr dùng để xóa hết và hiện thứ cái mới sau khi mở lại lần nữa
Write dấu này | sẽ đc hiện thị ở cuối dòng
Writeln dấu này | sẽ qua dòng tiếp theo( nếu có)
Dừng lại để đọc để ở cuối phần trình bày trên chữ End. ( ko phải End;) or để chỉnh lại câu lại có trong ngoặc readln(x)
Sơn nhiều người hiểu lầm thì End; ở đây xuất hiện khi mở thêm 1 lệnh begin khi cần, học kì 2 lớp 8 sẽ đc học ở phần sau nữau
26 tháng 2 2021
crt: tên chuẩn
clrscr: từ khóa
write: từ khóa
writeln: từ khóa
readln: từ khóa