Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n ( vs n đc nhập từ bàn phím) sao cho 15 số đc in trên 1 dòng Lập trình bằng ngôn ngữ lập trình pascal
2 câu trả lời
program in_so_le;
uses crt;
var dem,i,n: longint;
begin
clrscr;
write('nhap n:'); readln(n);
dem:=0;
for i:=1 to n do if i mod 2=0 then
begin
write(i:3,',');
dem:=dem+1;
if dem mod 15=0 then writeln;
end;
readln
end.
Program bai1;
uses crt;
var dem,n,i: integer;
begin
clrscr;
write('nhap n ='); readln(n);
dem:=0;
for i:= 1 to n do
if i mod 2 = 1 then
begin
write(i:3,',');
dem:= dem+1 ;
if dem mod 15 = 0 then writeln;
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
