viết chương trình nhập 1 dãy số tối đa 100 số , in ra màn hình các số là các số âm có thể chia hết cho 3 và 5
viết chương trình nhập 1 dãy số tối đa 100 số , in ra màn hình các số là các số âm có thể chia hết cho 3 và 5
By Audrey
By Audrey
viết chương trình nhập 1 dãy số tối đa 100 số , in ra màn hình các số là các số âm có thể chia hết cho 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:integer;
Begin
For i:= 1 to 5 do
Begin
Write(‘ Nhap so a[‘,i,’] = ‘); Readln(a[i]);
End;
Write(‘ Cac so co the chia het cho ca 3 va 5 la: ‘);
For i:= 1 to 5 do If (a[i]<0) and (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then Write(a[i]:5);
Readln
End.
*Gửi lại cho bạn ạ!
Program Tin_hoc;
Uses crt;
Var M: array[1..100] of longint;
i: longint;
Begin
For i:=1 to 100 do
Begin
Writeln(‘M[‘,i,’]=’); Readln(M[i]);
End;
Write(‘Cac so du tieu chuan la: ‘);
For i:=1 to 100 do
If (M[i]<0) and (M[I] mod 3 = 0) and (M[I] mod 5 = 0) then write(i);
Readln
End.