Question

bài 1: Viết chương trình nhập tằ làm từ bàn phím một STN a có 4 chữ số đưa a màn hình tổng

a,Chữ số hạng nghìn và chữ số hàng đơn vị

b,Chữ số hàng trăm và CS hàng chục

c,CS hàng nghìn và CS hàng trăm

Answer 1

Var n,i,d,s:integer;

hn,ht,hc,hdv:integer;

Begin

While (n < 999) and (n > 10000) do

Begin

Write('Nhap vao so n = ');readln(n);

End;

For i:=1 to n do

If n mod i = 0 then d:=d + 1;

If d = 2 then

Begin

hn:=n div 1000;

ht:=(n div 100) mod 10;

hc:=(n div 10) mod 10;

hdv:=n mod 10;

Write('a) Tong chu so hang nghin va hang don vi ',hn+hdv);

Write('b) Tong chu so hang tram va hang chuc ',ht+hc);

Write('c) Tong hang nghin va hang tram ',hn+ht);

End;

Readln;

End.