viết chương trình in ra 100 số tự nhiên đầu tiên (điều chỉnh lề khi in )
2)viết chương trinh in ra các số lẽ trong 100 số tự nhiên đầu tiên (có điều chỉnh lề cho đẹp mắt)
giúp mình với
mai mình thi rồi
mình cảm ơn nhiều lắm
Những câu hỏi liên quan
viết chương trình in ra các số lẻ trong 1000 số tự nhiên daaffu tiên và tính tổng các số lẻ đó
mọi người giúp mình vs ạ , mai mình ktra r , thankkkk
Var i,s:longint;
Begin
For i:=1 to 999 do
If i mod 2 <> 0 then
Begin
Write(i:6);
s:=s+i;
End;
Writeln;
Write('Tong la ',s);
Readln;
End.
Đúng 1
Bình luận (0)
Câu 18: Viết chương trình in ra 10 chữ “o” trên màn hình (0.5đ)Câu 19: Viết chương trình in ra màn hình thứ tự lần lặp (0.5đ)Câu 20: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên nhập từ bàn phím (1đ)Câu 21: Điền vào chỗ chấm: (0.5d)“ Để viết chương trình chỉ dẫn máy tính thực hiện các hoạt động lặp mà chưa xác định trước được số lần lặp, ta … chưa xác định”Câu 22: Vẽ sơ đồ khối lệnh While – do (0.5đ)Câu 23: Nếu cộng lần lượt n số tự nhiên đầu tiên (n1,2,3,…), ta đ...
Đọc tiếp
Câu 18: Viết chương trình in ra 10 chữ “o” trên màn hình (0.5đ)
Câu 19: Viết chương trình in ra màn hình thứ tự lần lặp (0.5đ)
Câu 20: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên nhập từ bàn phím (1đ)
Câu 21: Điền vào chỗ chấm: (0.5d)
“ Để viết chương trình chỉ dẫn máy tính thực hiện các hoạt động lặp mà chưa xác định trước được số lần lặp, ta … chưa xác định”
Câu 22: Vẽ sơ đồ khối lệnh While – do (0.5đ)
Câu 23: Nếu cộng lần lượt n số tự nhiên đầu tiên (n=1,2,3,…), ta được kết quả
T1=1
T2=1+2
T3=1+2+3
Cần cộng bao nhiêu số tự nhiên đầu tiên liên tiếp để ta nhận được tổng Tn nhỏ nhất nhưng lớn hơn 1000. Viết chương trình (1đ)
Viết chương trình nhập vào 1 số nguyên dương N.Sau đó in ra màn hình tổng của các số chẵn số trong N số tự nhiên đầu tiên (S=2+4+6+...+N)
Program HOC24;
var i,n: integer;
s: longint;
begin
write('Nhap n : '); readln(n);
s:=0;
for i:=1 to n do if i mod 2=0 then s:=s+i;
write('S = ',s);
readln
end.
Đúng 1
Bình luận (0)
pascal
program sum_of_evens;
var
i, n, sum: integer;
begin
write('Enter a positive integer: ');
readln(n);
sum := 0;
for i := 2 to n step 2 do
begin
sum := sum + i;
end;
writeln('The sum of even numbers from 2 to ', n, ' is ', sum);
end.
Đúng 0
Bình luận (0)
Câu 1:Viết chương trình in ra các số nguyên tử 1→9 dùng vòng lặp While...doCâu 2:Viết chương trình in ra màn hình 100 lần tên emCâu 3:Viết chương trình tính tổng N số tự nhiên đầu tiênCâu 4:Viết chương trình tính tính T1+1/2+...+1/nCâu 5:Vòng lặp sau cho biết kết quả S? S:0;For i:1 to 5 do S :S+2Câu 6:Dòng lệnh sau thực hiện bao nhiêu vòng lặp For i:5 to 10 do
Đọc tiếp
Câu 1:Viết chương trình in ra các số nguyên tử 1→9 dùng vòng lặp While...do
Câu 2:Viết chương trình in ra màn hình 100 lần tên em
Câu 3:Viết chương trình tính tổng N số tự nhiên đầu tiên
Câu 4:Viết chương trình tính tính T=1+1/2+...+1/n
Câu 5:Vòng lặp sau cho biết kết quả S=? S:=0;For i:=1 to 5 do S :=S+2
Câu 6:Dòng lệnh sau thực hiện bao nhiêu vòng lặp For i:=5 to 10 do
Viết chương trình nhập một số tự nhiên n (n>100) từ bàn phím? In ra màn hình các số tự nhiên lẽ trong phạm vi từ 50 đến ng (Lưu ý: Các giá trị in ra phải nằm trên cùng một hàng)
Program HOC24;
var i,n: integer;
begin
write('Nhap N: '); readln(n);
for i:=50 to n do if i mod 2=1 then write(i,' ');
readln
end.
Đúng 0
Bình luận (0)
AI GIÚP MIK BÀI NÀY VS
1) viết chương trình tính tổng 100 số tự nhiên đầu tiên
2. viết chương trình kiểm tra số n nhập từ bàn phím có chia hết cho hai số 2 và 3 không. nếu có thì in ra dòng chữ chia hết và không chia hết
bài 1:
var i,n : integer;
writeln('nhap n');
readln(n);
for i:=1 to 100 do
s:=s+i;
writeln('tong la",s);
readln;
end.
bài 2:
var n:real;
begin
writeln('nhap n');
if n (mod 2=0) and (n mod 3=0) then
writeln('chia het roi')
else writeln(khong chia het');
readln;
end.
Đúng 0
Bình luận (0)
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
Câu 1:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('So luong phan tu duong la: ',dem);
readln;
end.
Câu 3:
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 9 do
begin
writeln('Bang nhan ',i,' la: ');
for j:=1 to 10 do
writeln(i,'*',j,'=',i*j);
delay(200);
end;
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình pascal sử dụng cấu trúc lặp để in ra màn hình tổng của 10 số tự nhiên đầu tiên
Tham khảo
Var s,i:integer;
begin
S:= 0;
For i:= 1 to 10 do s:=s+1;
Writeln (‘tong cua 10 so tu nhien dau tien la:’,s);
Readln
End.
Đúng 1
Bình luận (1)
Var i,s:integer;
Begin
For i:=1 to 10 do
s:=s+i;
Write('Tong la ',s);
Readln;
End.
Đúng 1
Bình luận (0)
Viết Chương Trình tính tích các số tự nhiên đầu tiên cho đến khi tích đó bằng 100 thì dừng lại
chưa hiểu vấn đề@@@
xin input và output của bài đc không
Đúng 0
Bình luận (0)
Sửa đề: Đến khi tích đó lớn hơn 100 thì dừng lại
uses crt;
var s,i:integer;
begin
clrscr;
s:=1;
i:=1;
while s<=100 do
begin
i:=i+1;
s:=s*i;
end;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)