Question

Các bn ơi...lại là mk😂 giải giúp mk nha!....tại đến cuối HK1 mk ms đc hx tin vì phòng máy phải sữa chữa...nên nhìu bài mk ko thể thực hành nên ko bt làm....Mn giúp mk vs ạ!Bài mk gửi dưới comment ạ!

Cảm ơn mn nhìu ạ!

Answer 1

BÀI THỰC HÀNH 6:

var n,i,t: integer;

begin

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

write('Tong cac chu so cua N la : ');

while n<>0 do

begin

t:=t+(n mod 10);

n:=n div 10;

end;

write(t);

readln

end.

Answer 2

Bài thực hành số 6:
uses crt;
var n,t,k:integer;
begin
clrscr;
write('nhap n='); readln(n);
t:=0;
while n<>0 do
begin
k:=n mod 10;
n:=n div 10;
t:=t+k;
end;
writeln(t);
readln;
end.

Answer 3

Bài 1:

a)

Thuật toán 1:

- Bài toán thực hiện 3 vòng lặp

- Kết thúc vòng lặp giá trị S là 4

b)

Thuật toán 2:

- Bài toán thực hiện 0 vòng lặp

- Kết thúc vòng lặp giá trị S là 10

Answer 4

Bài 2:

Program hotrotinhoc;

var i: byte;

begin

write('5 so tu nhien dau tien la : ');

for i:=0 to 4 do write(i,' ');

readln

end.

Bài 3:

Program hotrotinhoc;

var n,i: integer;

s: real;

begin

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

i:=0;

while i<n do

begin

inc(i);

s:=s+1/i;

end;

write('S=',s:1:2);

readln

end.

Answer 5