sử dụng chương trình turbo pascal
tính tổng các số tự nhiên chẵn<10000
K
Khách
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.
Những câu hỏi liên quan
20 tháng 2 2022
uses crt;
var n,i,t,x:integer;
begin
clrscr;
readln(n);
t:=0;
while n>0 do
begin
x:=n mod 10;
if x mod 2=0 then t:=t+x;
n:=n div 10;
end;
writeln(t);
readln;
end.
5 tháng 5 2021
uses crt;
var a:array[1..10]of integer;
n,i,t:integer;
begin
clrscr;
n:=10;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
20 tháng 1 2022
uses crt;
var a,t,i:integer;
begin
clrscr;
t:=0;
for i:=1 to 6 do
begin
readln(a);
if (a mod 2=0) then t:=t+a;
end;
writeln(t);
readln;
end.
11 tháng 3 2022
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
11 tháng 3 2022
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
4 tháng 4 2022
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
i:=0;
while i<=n do
begin
i:=i+1;
if i mod 2=0 then t:=t+i;
end;
writeln(t);
readln;
end.
18 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long a;
int main()
{
cin>>a;
if (a%2==0) cout<<"La so chan";
else cout<<"La so le";
return 0;
}
PL
20 tháng 12 2021
- Thuật toán chương trình:
Bước 1: Nhập một số tự nhiên n và một biến d;
Bước 2: Gán giá d=n mod 2;
Bước 3: Nếu d=0 thì đấy là số chẵn, ngược lại thì đấy là số lẻ;
Bước 4. Kết thúc thuật toán;
- Chương trình Pascal:
- Kết quả:
B
2
MH
18 tháng 1 2022
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.
19 tháng 12 2019
Câu 1
uses
crt;
var a : integer;
begin
clrscr;
write('nhap a ='); readln(a);
if a mod 2 = 0 then writeln('la so chan ') else
writeln('la so le ');
readln;
end.
19 tháng 12 2019
1:
uses crt;
var n:integer;
begin
clrscr;
write('n='); readln(n);
if n>=0 then begin
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
end
else writeln('vui long nhap so tu nhien');
readln;
end.
2:
uses crt;
var d,r,cv,dt:integer;
begin
clrscr;
write('nhap chieu dai:'); readln(d);
write('nhap chieu rong:'); readln(r);
if (d>0) and (r>0) and (d>=r) then
begin
cv:=(d+r)*2;
dt:=d*r;
writeln('chu vi la: ',cv);
writeln('dien tich la: ',dt);
end
else writeln('vui long nhap lai');
readln;
end.
các số tự nhiên chẵn < 10000 là:
0; 2; 4; 6;...; 9998
Số số hạng của dãy là:
( 9998- 0) : 2 +1 = 5000 ( số hạng)
Tổng dãy trên là:
( 9998 +0) x 5000 : 2 = 24995000