Sử dụng lệnh while-do viết chương trình in ra các số lẻ nhỏ hơn n ( Với n được nhập). Sao cho 5 số lẻ được in trên một dòng.
2 câu trả lời
Program Hotboy;
uses crt;
Var n,i: integer;
Begin
Clrscr;
i:=1;
Write('nhap n');
Readln(n);
While i<n do
Begin
If (i mod 2<>0) then write(i:5);
End;
Readln
End.
program ct;
uses crt;
var n,i:integer;
begin
clrscr;
write('nhap n:=');readln(n);
i:=1;
while i<n do
begin
if i mod 2<>0 then writeln(i:5);
end;
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
