Hãy viết chương trình tính tổng, tích của các số tự nhiên từ 1àN (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
program TinhTongTich;
var
N, i, Tong, Tich:integer;
begin
writeln('Nhap so nguyen duong N:');
readln(N);
i:=1;
Tong:=0;
Tich:=1;
while i<=N do
begin
Tong:=Tong+i;
Tich:=Tich*i;
i:=i+1;
end;
writeln('Tong cac so tu 1 den ', N, ' la: ', Tong);
writeln('Tich cac so tu 1 den ', N, ' la: ', Tich);
readln;
end.
Dùng câu lệnh while...do viết chương trình nhập các số nguyên kết thúc khi nhập bằng 0 . Tính tổng các số chẵn , tổng câc số lẻ đã nhập rồi in kết quả ra màn hình
uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
t1:=0;
t2:=0;
repeat
readln(n);
if n mod 2=0 then t1:=t1+n
else t2:=t2+n;
until n=0;
writeln(t1,' ',t2);
readln;
end.
Dùng câu lệnh while...do viết chương trình nhập các số nguyên kết thúc khi nhập bằng 0. Tính tổng các số chẵn, tổng các só lẻ đã nhập, rồi in kết quả ra màn hình?
Viết chương trình tính tích các số chẳn và lớn hơn 10 từ 1 đến n. Với n được nhập từ bàn phím, rồi in kết quả ra màn hình
cách 1: sử dụng lệnh for do
cách 2: sử dụng lệnh while do
Cách 1 dùng lệnh for do:
Uses crt;
var i,n,k: integer;
begin clrcsr;
readln(n);
for i:=1 to n do begin
if(i mod 2=0) and (i>=10) then k:=k*i;
end;
writeln(k);
readln;
end.
Cách 2 dùng lệnh while do
Uses crt;
var m,n,o: integer;
begin clrcsr;
readln(n);
o:=1;
m:=1;
while (m<n) do begin
m:=m+1;
if(m mod 2=0) and (m>=10) then o:=o*m;
end;
writeln(o);
readln;
end.
Viết chương trình Pascal nhập vào 2 số a, b và in ra màn hình ƯCLN của a, b. Dùng câu lệnh while… do…
Var a,b,ta,tb,r,ucln:integer;
Begin
Write('a = ');readln(a);
Write('b = ');readln(b);
ta:=a;
tb:=b;
While tb <> 0 do
Begin
r:=ta mod tb;
ta:=tb;
tb:=r;
End;
ucln:=ta;
Write('UCLN(',a,' ',b,') = ',ucln);
Readln
End.
Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Giúp em với còn 1 câu này nữa là em xong bài rồi
Viết chương trình nhập vào dãy n số nguyên dương tìm và in ra màn hình số lớn nhất trong các số vừa nhập( dùng lệnh while do) giúp mình với ạ
Program HOC24;
var i,n,max: integer;
a: array[1..1000] of integer;
begin
write('Nhap n: '); readln(n);
i:=1; max:=-1;
while i<=n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
if a[i]>max then max:=a[i];
i:=i+1;
end;
write('So lon nhat la: ',max);
readln
end.
Viết chương trình Pascal nhập vào 1 dãy số nguyên và in ra màn hình khi tổng của chúng < 20. Dùng câu lệnh while…do…
program tong_so;
var
tong, so: integer;
begin
tong := 0;
while tong < 20 do
begin
write('Nhập số nguyên: ');
readln(so);
tong := tong + so;
end;
writeln('Tổng các số đã nhập là: ', tong);
end.