Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=15 to 25 do
s:=s+i;
writeln(s);
readln;
end.
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=10 to 55 do s:=s+i;
writeln(s);
readln;
end.
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
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.
Program HOC24;
Uses crt;
var i,j: integer;
j:=1; i:=0;
while(j<=50) do
begin
j:=j+1;
if(j mod 2=0) then i:=i+j;
end;
writeln(i);
readln;
end.