viết chương trình chọn các chữ số chia hết cho 2 không chia hết cho 5 trong dãy số từ 1 đến 588
giúp mik với ạ mai mình nộp r
viết chương trình chọn các chữ số chia hết cho 2 không chia hết cho 5 trong dãy số từ 1 đến 588 giúp mik với ạ mai mình nộp r
By Ayla
Program bai_tap;
Uses crt;
Var i: integer;
Begin
Writeln (‘Cac so chia het cho 2 va khong chia het cho 5 trong day la:’);
For i:=1 to 588 do
If ((i mod 2=0) and (i mod 5 <>0)) then
Write (i:6);
Readln
End.
uses crt;
var i:longint;
begin
clrscr;
writeln(‘Cac so chia het cho 2 ma khong chia het co 5 la: ‘);
for i:=1 to 588 do
if (i mod 2=0)and(i mod 5<>0) then writeln(i);
readln
end.