câu 1:Viết chương trình tính tổng 5 số tự nhiên đầu tiên bằng cách sử dụng vòng lặp while...do câu 2:Viết chương trình tìm ước của n với n là số nguyên dương được nhập vào từ bàn phím.
2 câu trả lời
1.program oken;
uses CrT;
var i,tong:byte;
begin
clrscr;
i:=0;
while i<5 do
begin
i:=i+1;
tong:=tong+i;
end;
writeln('tong 5 so tu nhien dau tien: ',tong);
readln;
end.
2.program oken;
uses crt;
var n,i:integer;
begin
clrscr;
write('nhap n: '); readln(n);
for i:=1 to n do
if n mod i=0 then write(i,' ');
readln;
end.
1/
Program BTH;
uses crt;
var i,tong:byte;
Begin
clrscr;
i:=0;
while i<5 do
begin
i:=i+1;
tong:=tong+i;
end;
writeln('Tong 5 so tu nhien dau tien: ',tong);
readln;
end.
2/
Program BTH;
uses crt;
var n,i:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
if n mod i=0 then write(i,' ');
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
