Những câu hỏi liên quan
DT
Xem chi tiết
H24
Xem chi tiết
DL
Xem chi tiết
ML
31 tháng 3 2021 lúc 16:53

Program HOC24;

var i,n: integer;

begin

write('Nhap N: '); readln(n);

write('Cac so tu 1 den ',n,' chia het cho 2 la: ');

for i:=1 to n do if i mod 2=0 then write(i,' ');

writeln;

for i:=1 to n do if i mod 2=1 then write(i,' ');

readln

end.

Bình luận (0)
MM
Xem chi tiết
GW
19 tháng 9 2021 lúc 17:41

a)  0; 7; 14; 28; 35; 42; 49; 56

b) 5; 10; 15; 20; 25; 30; 35; 40; 45; 50; 55

Bình luận (0)
 Khách vãng lai đã xóa
H24

\(a,140:7=20\)

\(49:7=7\)

=>140 và 49 đều chia hết cho 7

=>Để phép tính trên chia hết cho 7 thì x cũng phải chia hết cho 7

*Lưu ý:x chia hết cho 7 và bé hơn hoặc bằng 56

\(b,25:5=5\)

\(70:5=14\)

=>25 và 70 đều chia hết cho 5

=>Để phép tính trên chia hết cho 5 thì x cũng phải chia hết cho 5

*Lưu ý x chia hết cho 5 bé hơn hoặc bằng 56

Bình luận (0)
 Khách vãng lai đã xóa
GL
Xem chi tiết
HC
Xem chi tiết
HC
5 tháng 5 2021 lúc 14:47

Viết chương trình nhập vào số nguyên n và tính tổng các số lẻ (các số lẻ là số không chia hết cho 2) trong khoảng từ 1 đến n ( ví dụ nhập = 10, ta sẽ có tổng sau s=1+3+5+7+9=25)

Bình luận (0)
NT
5 tháng 5 2021 lúc 20:15

uses crt;

var i,n,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

 if i mod 2=1 then s:=s+i;

writeln(s);

readln;

end.

Bình luận (0)
NV
Xem chi tiết
NQ
21 tháng 3 2016 lúc 20:23

Ket qua la 12005 nha ban

Bình luận (0)
HT
Xem chi tiết
NT
7 tháng 3 2021 lúc 18:35

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if i mod 3=0 then 

begin

write(i:4);

t:=t+i;

end;

writeln;

writeln('Tong cac so chia het cho 3 la: ',t);

readln;

end.

Bình luận (0)
BT
7 tháng 3 2021 lúc 21:29

Bình luận (0)
TL
Xem chi tiết
AH
6 tháng 1 2023 lúc 19:22

4 không chia hết cho 49. Bạn xem lại đề xem lỗi ở đâu.

Bình luận (0)