cách tính 9̣7 - 5̀2 bằng máy tính pascal
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.
Những câu hỏi liên quan
KV
25 tháng 3 2022
var st:string;
i,dem:integer;
begin
write('Nhap xau ki tu: ');readln(st);
for i:=1 to length(st) do
if st[i]=' ' then dem:=dem+1;
write('so ki tu la dau cach la ',dem);
readln;
end.
ML
12 tháng 9 2021
Công việc trên máy tính | Cần kết nối mạng máy tính |
1. Soạn thảo văn bản bằng Word |
|
2. Lập trình Pascal |
|
3. Tạo bảng tính bằng Excel |
|
4. Đọc báo điện tử từ Internet | x |
5. Chat với bạn bè trên Facebook | x |
6. Gửi/nhận thư điện tử | x |
7. Học tiếng Anh trực tuyến | x |
8. Sử dụng Google để tìm kiếm thông tin | x |
9. Trao đổi thông tin, dữ liệu (chat, email, …) | x |
10. Sử dụng dịch vụ trên mạng (học trực tuyến, tìm kiếm thông tin, …) | x |
11. Sử dụng chung thiết bị phần cứng (máy in, thiết bị lưu trữ, …) |
|
12. Soạn thảo trực tuyến, chia sẽ bài viết, hình ảnh, video, … | x |
13. Một vấn đề lớn, phức tạp cần kết hợp sức mạnh của nhiều máy tính để giải quyết (giải bài toán cần xử lí nhiều phép tính, dữ liệu lớn, …) | x |
14 tháng 9 2021
em nghĩ sử dụng chung thiết bị phần cứng (máy in, thiết bị lưu trữ, …) cũng là cần kết nối mạng máy tính vì trong phần lợi ích sgk có ghi vậy ạ T^T
1 tháng 7 2023
var i, so: integer;
begin
writeln('Nhap vao 10 so tu nhien:');
for i := 1 to 10 do
begin
write('So thu ', i, ': ');
readln(so);
writeln('So vua nhap la: ', so);
end;
readln;
end.
ML
10 tháng 5 2023
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap n '); readln(n);
t:=1;
for i:=1 to n do t:=t*2;
write('2^,n,' = ',t);
readln
end.
NA
Nguyễn An Ninh
VIP
10 tháng 5 2023
program Tinh_2_mu_n;
var
n, i: integer;
ket_qua: longint;
begin
write('Nhap vao so nguyen n: '); readln(n);
ket_qua := 1;
for i := 1 to n do
ket_qua := ket_qua * 2;writeln('2^', n, '=',ket_qua); readin;
end.
10 tháng 4 2021
*Khi A lớn nhất và A >=1500
Var i,A: integer;
Begin
While A<1500 do
Begin
i:=i+1;
A:=A+i;
End;
Write('Tong cua A la: ',A); [Hoặc Write('Tong cua A la:',A,' va can co ',i,' so') {Để in ra màn hình cần bao nhiêu số để có tổng >1500 ]
Readln
End.
10 tháng 4 2021
*Khi A lớn nhất và A<1500
Var i,A:integer;
Begin
i:=0; A:=0;
While A<1500 do
Begin
i:=i+1;
A:=A+i;
End;
A:=A-i;
i:=i-1;
Writeln('Tong A= ',A,' );
Readln;
End.
*Dòng lệnh in đậm mình ghi thêm và khác với bài kia có nghĩa là khi A>1500 thì phải trừ tổng A đi số (hoặc nhiều số) cuối cùng đã cộng cho tổng cho đến khi tổng A<1500. Vd như: A=1+2+3+4+5= 15 (tức A>10; A phải lớn nhất).Muốn cho A=10 thì trừ đi số cuối cùng là 5 = 15-5=10. Còn nếu muốn A<10 thì trừ hai số cuối cùng đi hai số cuối cùng là : 15-5-4=6
Good luck for you! :D
Để tính 97 - 52 bằng máy tính Pascal, bạn có thể sử dụng phép trừ thông thường. Kết quả của phép tính này là 45.