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.

8 tháng 12 2021

giúp mình với

 

28 tháng 9 2025

Khi nhập dữ liệu văn bản hoặc thao tác với hình ảnh, biểu tượng trên màn hình, em cần đến các thiết bị ngoại vi sau:

  • Bàn phím : dùng để nhập dữ liệu văn bản.
  • Chuột : dùng để chọn, di chuyển, thao tác với các hình ảnh, biểu tượng trên màn hình.
  • Màn hình cảm ứng (nếu có): có thể dùng để chạm, chọn trực tiếp hình ảnh hoặc biểu tượng.
7 tháng 1 2019

* Thuật toán:

Bước 1: Nhập n và dãy số a1, a2…, an.

Bước 2: SUM ← 0; i ← 0.

Bước 3: Nếu ai > 0 thì SUM ← SUM + ai, ngược lại đến bước 4.

Bước 4: i ← i + 1;

Bước 5: Nếu i \(\le\) n thì quay lại bước 3.

Bước 6: Thông báo giá trị SUM. Kết thúc thuật toán.

* Chương trình: program tinhtong; uses crt; var a,n,i: integer; sum: real; begin clrscr; write('Nhap n vao'), read(n); write('nhap day A vao'), read(a1,a2,...,an); sum:=0, i:=0; if i <= n then if ai > 0 then sum:=sum+ai else i:i+1; writeln('tong cac so duong trong day la',sum:4:0) readln end. Theo mình thì ntn
7 tháng 1 2019

1GP cho bạn nào trả lời được câu này

26 tháng 2 2022

A

8 tháng 2 2022

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln((a+b)/2:4:2);

readln;

end.

19 tháng 12 2019

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);

readln;

end.

19 tháng 12 2019

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);

readln;

end.