viết chương trình tính tổng các số chẵn trong phạm vi từ 2 đến 50 thông báo kết quả ra màn hình bằng cách sử dụng vòng lặp while...do.
Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 35 đến 45.
Thông báo kết quả ra màn hình?
Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 1 đến 20.
Thông báo kết quả ra màn hình?
Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 15 đến 25.
Thông báo kết quả ra màn hình?
Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 25 đến 35.
Thông báo kết quả ra màn hình?
viết chương trình tính tổng các số tự nhiên trong phạm vi từ 15 đến 25
- thông báo kết quả ra màn hình?
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=15 to 25 do
s:=s+i;
writeln(s);
readln;
end.
Câu 1: Viết chương trình tính tổng các số tư nhiên trong phạm vi từ 10 đến 55. Thông báo kết quả ra màn hình?
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=10 to 55 do s:=s+i;
writeln(s);
readln;
end.
Viết chương trình nhập từ bàn phím số nguyên dương N,tính tổng các giá trị lẻ và chia hết cho 3 trong phạm vi từ 1 đến N.In kết quả ra màn hình (sử dụng cú pháp while...do)
program tinh_tong;
uses crt;
var i,N:byte;
S:integer;
begin
writeln('Nhap so N='); readln(N);
i:=1; S:=0;
while i<=N do
begin
if (i mod 3=0) and (i mod 2=1) then S:=S+i;
i:=i+1;
end;
writeln('Tong S=',S);
readln
end.
nếu được thì mong bạn kiểm tra lại trên phần mềm dùng mình nhé, do ko có nên cx chẳng kiểm tra được. Thế nên sai thì thông cảm dùng mình nha
Viết chương trình sử dụng lệnh lặp While ... do ... để thực hiện công việc sau
- Nhập vào số nguyên n (10<n<100)
-In ra màn hình tất cả các ước của n
-Tính tổng và thông báo các ước của n là số chẵn
program tim_uoc;
uses crt;
var i,n,tong:integer;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;tong:=0;
writeln('cac uoc cua ',n,' la:');
while i<=n do
if n mod i=0 then
begin
write(i:3);
inc(i);
end;
writeln;
i:=1;writeln('cac uoc chan:');
while i<=n do
begin
if n mod i=0 then
begin
if i mod 2=0 then write(i:3);
tong:=tong+i;
end;
end;
writeln;
write('tong cac uoc chan:',tong);
readln;
end.
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
writeln('Cac uoc cua ',n,' la: ');
while i<=n do
begin
if n mod i=0 then write(i:4):
i:=i+1;
end;
writeln;
writeln('Cac uoc chan cua ',n,' la: ');
t:=0;
i:=1;
while i<=n do
begin
if (n mod i=0) then
begin
t:=t+i;
write(i:4);
end;
inc(i);
end;
writeln('Tong cac uoc chan cua ',n,' la: ',t);
readln;
end.
Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 10 đến 99
Thông báo kết quả ra màn hình?
Program Tong_cac_so_tu_nhien;
Uses CRT;
Var i,d: Byte;
Begin
d:=0;
For i = 10 to 99 Do d:=d+i;
Writeln('Tong cac so tu nhien tu 10 den 99 la ',d);
End.