viết chương trình nhập một dãy số tối đa 100 số sau đó in ra các số có thể chia hết 3 và 5
viết chương trình nhập một dãy số tối đa 100 số sau đó in ra các số có thể chia hết 3 và 5
By Alexandra
By Alexandra
viết chương trình nhập một dãy số tối đa 100 số sau đó in ra các số có thể chia hết 3 và 5
Đáp án: Như phần “Giải thích các bước giải”
Giải thích các bước giải:
Uses Crt;
Var a:array[1..1000] of integer;
i,n:integer;
Begin
Write(‘ Nhap do dai day n =’); Readln(n);
For i:= 1 to n do
Begin
Write(‘ Nhap so thu a[‘,i,’] = ‘); Readln(a[i]);
End;
Write(‘ Cac so trong day chia het cho ca 3 va 5 la: ‘);
For i:= 1 to n do If (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then Write(a[i]:3);
Readln
End.
program B8;
uses crt;
var so:array[1..100] of integer;
i,n:integer;
begin
clrscr;
writeln(‘Nhap n:’);readln(n);
for i:= 1 to n do
begin
writeln(‘Nhap so thu ‘,i,’:’);readln(so[i]);
end;
for i:= 1 to n do
if (so[i] mod 3=0) or (so[i] mod 5 =0) then
writeln(‘Cac so chia het cho 3 va 5 la:’,so[i]);
readln;
end.