Hãy viết chương trình cho phép nhập vào 1 dãy các số và thực hiện yêu cầu sau đây: + tính tổng các số chia 3 dư 1 trong dãy; + tính tổng bình phương các số chia trong dãy; giúp mình với ạ! làm mãi chẳng ra T..T

trucquyen241

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 30 xem

1 trả lời

Thích Trả lời

227124292028664

program phuongt;
uses crt;
var A: array[1..500] of integer;
i, s1, s2, n: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('A[', i , '] = '); readln(A[i]);
if A[i] mod 3 = 1 then
begin
s1:=s1+A[i];
s2:=A[i]*A[i]+s2;
end;
end;
writeln('Tong cac so chia 3 du 1: ', s1);
write('Tong binh phuong cac so chia: ', s2);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

locthinga037

program mang;
uses crt;
var A: array[1..1000] of integer;
i,S1,S2,n:integer;
begin
clrscr;
write(' n = '); readln(n);
for i:=1 to n do begin
write('A[', i , '] = '); readln(A[i]);
if A[i] mod 3 = 1 then
begin
S1:=S1+A[i];
S2:=A[i]*A[i]+S2;
end;
end;
writeln('Tong cac so chia cho 3 du 1 la: ', S1);
write('Tong binh phuong cac so chia la: ', S2);
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Mn giúp mình với ạ mình cảm ơn cáu hỏi trong ảnh ạ.

cây cách máy ảcâynh 15m, khoảng cách ống kính đến phim là 5cm, chiều cao của ảnh trên phim là 2.4cm. Hỏi cây cao bao nhiêu? Có vẽ hình

Viết đoạn văn ngắn ( 8- 10 câu ) với chủ đề tự chọn. Trong đó có sử dụng 1 biện pháp tu từ so sánh, 1 biện pháp tu từ nhân hóa và 1 câu trần thuật. Gạch chân và ghi chú thích rõ ràng.

Giải pt: (2018-x)^3+(2020-x)^3+(2x-2022)^3=0

viết đoạn văn cho bt cảm nghĩ của em "khi kb ưu tiên chọn tính cách hay nhân cách"

Nhập 1 xâu bất kỳ từ bàn phím?In ra màn hình 2 giá trị ở cuối xâu?

My leg was hurting me i ..... Walk

Chỉ hộ giúp e vs ạ e đag rất cần :v

Cho tam giác ABC vuông tại A , AB = 6cm , AC = 8cm , BC = 10 cm có đường cao AH cắt cạnh BC tại H đường phân giác BD của góc ABC cắt cạnh AC tại D a ) Tính độ dài các đoạn thẳng AD và BC b ) Tính AH Mìn đang cần rất gấp ạ Các bạn giúp mìn nha 😿

chấ nào làm mất màu dung dịch brom

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến