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.

20 tháng 1 2017

       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

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.

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

crm ơn bạn nhiều nha

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.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

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;

}

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:

Giải bài tập Tin học 8 | Để học tốt Tin học 8

- Kết quả:

Giải bài tập Tin học 8 | Để học tốt Tin học 8

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 1 2022

Sai rồi em!

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.