Question

Viết chương trình nhập cào 1 số tự nhiên bất kì. Tính tổng 10 số tự nhiên đầu tiên chia hết cho số đó.

Answer 1

bài này a là tự nhiên bất kì nhé

program dsfvd;

uses crt;

var b,n,i: inyeger;

a: byte;

begin

clrscr;

write('a=');

readln(a);

write('n');

readln(n);

b:= 0;

for i:=1 to n do if (i mod a )=0 then b:=b+i;

write(b);

readln;

end.

học tốt nhé :)

Answer 2

10 số tự nhiên đầu tiên chia hết cho số a là: 0; a; 2a; 3a;...;9a

tổng các số đó là: 0 + a + 2a + ... + 9a = 45a

var a:integer;

begin

write('a=');readln(a);

write('tong 10 so tu nhien dau tien chia het cho a:',45*a);

readln;

end.