Viết chương trình nhập 2 số, hiển thị số chia hết cho 5 và 10, đếm số lượng. Tính tổng các số trong khoảng 2 số đó
Viết chương trình nhập 2 số, hiển thị số chia hết cho 5 và 10, đếm số lượng. Tính tổng các số trong khoảng 2 số đó
Uses crt;
Var x, y, d, i, dx, dy: integer;
Begin
Clrscr;
Write(‘Nhap x = ‘); readln(x);
Write(‘Nhap y = ‘); readln(y);
If x mod 10 = 0 then inc(dx);
If y mod 10 = 0 then inc(dy);
For i:=x to y then d:=d+i;
Writeln(‘Tong cac so trong khoang x va y la: ‘,d);
Readln
End.
uses crt;
var d,a,b,i:longint;
begin
clrscr;
write(‘a,b=’);readln(a,b);
if a mod 10=0 then write(a,’ ‘);
if b mod 10=0 then write(b); writeln;
for i:=a to b do inc(d,i);
writeln(d);
readln
end.