Tin học 11
Viết chương trình con nhập từ bàn phím đây số k gồm i phần tử số nguyên ( i<=890 ). Hãy tính tổng các số chia hết cho 3 và không chia hết cho 5, tính tổng căn bậc hai các số còn lại?
Tin học 11
Viết chương trình con nhập từ bàn phím đây số k gồm i phần tử số nguyên ( i<=890 ). Hãy tính tổng các số chia hết cho 3 và không chia hết cho 5, tính tổng căn bậc hai các số còn lại?
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.
uses crt;
var i,j,s:longint; k:array[1..100000]of longint;
s1:real;
begin
clrscr;
write(‘i=’);readln(i);
for j:=1 to i do
begin
write(‘k[‘,j,’]=’);readln(k[j]);
if (k[j] mod 3=0)and(k[j] mod 5<>0) then inc(s,k[j]) else
s1:=s1+sqrt(k[j]);
end;
writeln(‘tong cac so chia het cho 3 va khong chia het cho 5: ‘,s);
writeln(‘tong can bac 2 cac so con lai: ‘,s1);
readln
end.