K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

31 tháng 3 2021

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.

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

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

\(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

5 tháng 5 2021

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)

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.

21 tháng 3 2016

Ket qua la 12005 nha ban

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.

AH
Akai Haruma
Giáo viên
6 tháng 1 2023

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