Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Trương Đức Nhân
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 1 2022 lúc 13:22

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.

lin phạm
Xem chi tiết
lin phạm
30 tháng 9 2023 lúc 8:19

giúp mik với ạ!

Vũ Quang Huy
30 tháng 9 2023 lúc 9:08

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 

Nguyễn Hoàng Hà
Xem chi tiết
Đỗ Nguyên
11 tháng 2 2022 lúc 20:04

là số chẳn

Khách vãng lai đã xóa
Phạm Trần Phương Anh
11 tháng 2 2022 lúc 20:51

TL:

là chẵn nha

HT@@@@

Khách vãng lai đã xóa
Tuyết Lê
Xem chi tiết
꧁༺β£ɑℭƙ £❍ζʊꜱ༻꧂
27 tháng 2 2021 lúc 17:44

begin

A:=0;

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

writeln (' tong =',A);

readln;

end.

Minh Lệ
27 tháng 2 2021 lúc 17:47

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

Trần Ái Linh
27 tháng 2 2021 lúc 17:49

program im_14424;

uses crt;

var i, S: byte

begin

clrscr;

S:=0

for i:=1 to 20 do

begin

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

write('Tong cac so chan tu 1 den 20 la: ', S);

end;

readln;

end.

Trương Đức Nhân
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 1 2022 lúc 22:28

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;

}

Lê Bích Thủy
Xem chi tiết
Đỗ Tuệ Lâm
17 tháng 2 2022 lúc 14:08

{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.  
}

Thảo
Xem chi tiết
nguyen thi huyen phuong
Xem chi tiết
Đỗ Văn Hoài Tuân
13 tháng 6 2015 lúc 15:30

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ẻ.

trinh hong nhun
27 tháng 1 2016 lúc 11:28

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

Cố lên Tân
13 tháng 6 2015 lúc 15:30

sai, vì các số chẵn cộng lại phải có chữa số tận cùng 0; 2; 4; 6; 8.

 

Tuyết Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 13:23

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.

Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 22:08

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.