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.
program tong;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
s:=s+(1/(i*2));
write('tong la:',s:0:2);
readln;
end.
bài 1:
var i,n : integer;
writeln('nhap n');
readln(n);
for i:=1 to 100 do
s:=s+i;
writeln('tong la",s);
readln;
end.
bài 2:
var n:real;
begin
writeln('nhap n');
if n (mod 2=0) and (n mod 3=0) then
writeln('chia het roi')
else writeln(khong chia het');
readln;
end.
Cú pháp khai báo biến :
Var <tên biến> : <kiểu dữ kiệu của biến>;
Cú pháp khai báo hằng :
Const <tên hằng> = <giá trị của hằng>;
Lệnh Write và Writeln : để in kết quả ra màn hình
- cú pháp khai báo thư viện: Uses <tên thư viện>;
- cú pháp khai báo biến: Var <tên biến>:<kiểu dữ liệu>;
- cú pháp khai báo hằng: Const <tên hằng>=<giá trị>;
- cú pháp writeln, write: Write(ND1,ND2,ND3,...);
Writeln(ND1,ND2,ND3,...);
xin lỗi ví máy tính mik bị lỗi và mik sửa câu 1 nha :
c1 : 1tam giác cân làm từ các dấu *(số lượng như 1. phía trên)
2 câu kia mik ko cần nữa nhé
các bạn giúp mik nha!!!!!!!!!!!!!!!
Bạn có thể tạo một loop
from pynput.keyboard import Key, Controller
keyboard = Controller()
chucnangloop = True
while chucnangloop:
keyboard.press(Key.up)
keyboard.release(Key.up)
keyboard.press(Key.down)
keyboard.release(Key.down)
keyboard.press(Key.left)
keyboard.release(Key.left)
keyboard.press(Key.right)
keyboard.release(Key.right)
except KeyboardInterrupt:
chucnangloop = False
Mình đã tạo loop rồi nhưng loop nó chạy theo thứ tự nhưng mình muốn chạy tất cả cùng một lúc.