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.

2 tháng 5 2015

Ta có dãy số : 2 ,4,6 ....18,20

Số số hạng của dãy là : ( 20 - 2 ) : 2 + 1 = 10 

Tổng của dãy là : ( 20 + 2 ) x 10 : 2 = 110

2 tháng 5 2015

Số các số chẵn:(20-2):2+1=10(số)

Tổng các số chẵn: (20+2)*10:2=110

Câu 1: 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 20 do 

  if i mod 4=0 then t:=t+i;

writeln(t);

readln;

end.

Câu 2: 

uses crt;

var i,dem:integer;

begin

clrscr;

dem:=0;

for i:=1 to 20 do 

  if i mod 3=0 then dem:=dem+1;

writeln(dem);

readln;

end.

30 tháng 9 2023

giúp mik với ạ!

30 tháng 9 2023

a] trong các số:4;45;158;3.626;8.177;1.956,số nào là số chẵn?số nào là số lẻ?

số chẵn : 4;158;626;8;956

số lẻ : 45;3;177

b] từ 1 đến 20 có tất cả số số chẵn là:11

c] tổng của 5 số lẻ liên tiếp từ số 1 là:5 sô lẻ liên tiếp từ số 1: 1;3;5;7;9

tổng dãy số lẻ tren là : 1+3+5+7+9=25 

11 tháng 2 2022

là số chẳn

11 tháng 2 2022

TL:

là chẵn nha

HT@@@@

begin

A:=0;

for i:=1 to 20 do A:= A+i*2;

writeln (' tong =',A);

readln;

end.

27 tháng 2 2021

For i:=1 to 20 do if i mod 2=0 then t:=t+i;

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

int t,i;

int main()

{

t=0;

for (i=1; i<=20; i++)

if (i%4==0) t=t+i;

cout<<t;

return 0;

}

2: 

#include <bits/stdc++.h>

using namespace std;

int i,dem;

int main()

{

dem=0;

for (i=1; i<=20; i++)

if ((i%2==1) and (i%3==0)) dem++;

cout<<dem;

return 0;

}

17 tháng 2 2022

{PROGRAM Bai_tap1;
USES crt;
VAR n, i, C, L:Bytbe;
BEGIN 
  clrscr;
  Write('Nhap n:');Readln(n);
  C:=0;L:=0;
  For i:=1 to n do
    If i mod 2=0 then C:=C+i else L:=L+i;
  writeln('Tong cac so chan la:',C);
  writeln ('Tong cac so le la:',L);
  Readln;
end.  
}

13 tháng 6 2015

Nhìn qua là biết sai vì cộng các số chẵn với nhau thì tổng là chẵn mà bạn Toàn tính ra tổng là lẻ.

27 tháng 1 2016

Tổng các số chẵn là 1kết quả toàn tính được là 2025 là số lẻ do vậy toàn đã tính sai

Bài 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

for i:=1 to n do 

 s:=s*i;

writeln(n,'!=',s:0:0);

readln;

end.

4 tháng 4 2023

1).

program oken;

uses crt;

var n,i: integer;

      gt: qword;

begin

write('nhap n: '): readln(n);

gt:=1;

for i:=1 to n do gt:=gt*i;

writeln('N!=',gt);

readln;

end.

2).

program tongcacsole;

uses crt;

var t,i:longint;

begin

clrscr;

for i:=1 to 203 do 

  if i mod 2 = 1 then t:=t+i;

write(t);

end.

3).

program tongcacsochan;

uses crt;

var t,i:longint;

begin

clrscr;

for i:=1 to 20 do 

  if i mod 2 = 0 then t:=t+i;

write(t);

end.