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
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
By Peyton
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.
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.