Viết chương trình con nhập từ bàn phím dãy số r gồm g phần tử số nguyên ( g<=890) . hãy tính tổng các số chia hết cho 4 và không chia hết cho k . tính tổng căn bậc hai các số còn lại . k nhập từ bàn phím

ducmanh210

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 14 xem

1 trả lời

Thích Trả lời

danghongtra2002

var k: array[1..250] of word;

s1, i, n: word;

s2: real;

Begin

Write('nhap so phan tu: '); readln(n);

S1:=0; s2:=0;

For i:=1 to n do

Begin

Write('k[', i, '] = '); readln(k[i]);

If (k[i] mod 3=0) and (k[i] mod 5<>0)

Then s1:=s1+k[i]

Else s2:=s2+sqrt(k[i]);

End;

Writeln('tong cac so chia het cho 3 ma khong chia het cho 5: ', s1);

Write('tong cac so con lai: ', s2);

Readln

End.

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

minhthi

uses crt;
var g,k,i,s:longint; r:array[1..100000]of longint;
s1:real;
begin
clrscr;
write('g,k=');readln(g,k);
for i:=1 to g do
begin
write('r[',i,']=');readln(r[i]);
if (r[i] mod 4=0)and(r[i] mod k<>0) then
inc(s,r[i]) else s1:=s1+sqrt(i);
end;
writeln(s,' ',s1);
readln
end.

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

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

At work , you can turn off _______ lights and your computer if you are not using them A all B those C no D any

Câu 2: Hai xe khởi hành cùng một lúc từ hai địa điểm A và B cách nhau 70 km và sau một giờ thì gặp nhau. Tính vận tốc của mỗi xe? Biết rằng xe đi từ A có vận tốc lớn hơn xe đi từ B là 10km/giờ. Gấp lắm ạ...........

Theo Hiệp ước Nhâm Tuất, triều đình Huế đồng ý mở ba cửa biển nào cho Pháp vào buôn bán?

Nêu nguồn gốc vai trò của các chất dinh dưỡng có trong thực phẩm

Giúp mình với giúp mình với giúp mình với

ai giúp tui với, chỉ cần ghi A,B,... thoi. xong nhanh, đúng tất tui cho ctlhn nhé

Anh chị giúp em làm mấy câu nàu vs an

Giúp mình với giúp mình với giúp mình với

Làm đúng giùm Ai giúp vs Cần gấp ạ!!!

1. Khí hậu ở oxtraylia chủ yếu là? 2. Xu hướng dân số ở châu âu hiện nay ? 3. Mật độ dân số TB ở châu Đại dương năm 2012 là ? 4. Xu hướng dân số của châu âu hiện nay ?

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