Viết chương trình nhập 10 số nguyên -In ra dãy số đã nhập trên hàng - tính tổng các số nguyên âm đã nhập - đếm xem có bao nhiêu số thoả mãn:"lớn hơn 6 và nhỏ hơn 9"
Viết chương trình nhập 10 số nguyên -In ra dãy số đã nhập trên hàng - tính tổng các số nguyên âm đã nhập - đếm xem có bao nhiêu số thoả mãn:"lớn hơn 6 và nhỏ hơn 9"
program TinhTongSo;
uses crt;
var
a: array [1..10] of integer;
i, tong, dem: integer;
begin
clrscr;
writeln('Nhap day 10 so nguyen: ');
for i := 1 to 10 do
begin
write('Nhap so thu ', i, ': ');
readln(a[i]);
end;
writeln('Day so da nhap tren mot hang: ');
for i := 1 to 10 do
write(a[i], ' ');
tong := 0;
for i := 1 to 10 do
if a[i] < 0 then
tong := tong + a[i];
writeln('Tong cac so nguyen am: ', tong);
dem := 0;
for i := 1 to 10 do
if (a[i] > 6) and (a[i] < 9) then
dem := dem + 1;
writeln('So luong cac so thoa dieu kien "lon hon 6 va nho hon 9": ', dem);
readln;
end.
Viết chương trình để mở tệp văn bản HT. txt nhập từ bàn phím họ tên của em và ghi tệp đó
Cho 1 dãy số gồm phân tử n
Mô tả thuật toán: BT cần khai báo những biến nào? Xác định kiểu dữ liệu từng biến.
a, Bài toán "Giải PT bậc nhất dạng tổng quát bx+c=0":
INPUT: Các số b và c
OUTPUT: Nghiệm của PT bậc nhất b, Mô tả thuật toán:
Bước 1. Nếu b=0 chuyển tới bước 3.
Bước 2. Tính nghiệm của PT x=-c/b và chuyển tới bước 4.
Bước 3. Nếu c≠0, thông báo PT đã cho vô nghiệm. Ngược lại (c=0), thông báo PT có vô số nghiệm.
Bước 4. Kết thúc.
mn giúp em với ạ, càng nhanh càng tốt. cảm onnn mn nhìu lắmmm
Nhập vào từ bàn phím một xâu. Hãy chuẩn hóa xâu vừa nhập theo quy tắc:
- Xóa các dấu cách ở đầu xâu và cuối xâu (nếu có).
- Nếu giữa xâu có 2 hay nhiều dấu cách thì xóa bỏ và chỉ để lại một dấu cách.
In ra xâu đã chuẩn hóa.
anh em giúp tôi với :(
Cho mảng A có N phần tử (N được nhập vào từ bàn phím, các phần tử của mảng là các số nguyên). Hãy viết chương trình Pascal thực hiện các yêu cầu sau: a. Nhập các phần tử cho mảng A? b. In lên màn hình các phần tử của mảng A? c. Tính tổng các phần tử chẵn của mảng A và thông báo kết quả ra màn hình?
program Tinh_Tong_Phan_Tu_Chan;
var
A: array of Integer;
N, i, sum: Integer;
begin
Write('Nhap N: ');
Readln(N);
SetLength(A, N);
// Nhập các phần tử cho mảng A
for i := 0 to N - 1 do
begin
Write('Nhap phan tu thu ', i + 1, ': ');
Readln(A[i]);
end;
// In lên màn hình các phần tử của mảng A
Write('Cac phan tu cua mang la: ');
for i := 0 to N - 1 do
begin
Write(A[i], ' ');
end;
Writeln;
// Tính tổng các phần tử chẵn của mảng A và thông báo kết quả ra màn hình
sum := 0;
for i := 0 to N - 1 do
begin
if A[i] mod 2 = 0 then
sum := sum + A[i];
end;
Writeln('Tong cac phan tu chan cua mang la: ', sum);
Readln;
end.
Bài 1. Cho tệp văn bản input.txt gồm nhiều dòng. dòng đầu tiên ghi số nguyên dương N, N dòng tiếp theo, mỗi dòng ghi một số nguyên không lớn hơn 10000. a. Đọc dữ liệu từ tệp, đếm xem có bao nhiêu số dương chẵn. b. Đọc dữ liệu từ tệp, sắp xếp N số theo thứ tự tăng dần rồi ghi kết quả vào tệp output.txt. Ai biết làm giúp mk vớii
. Em hãy mô tả thuật toán tính diện tích hình thang bằng sơ đồ khối.