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.

San San
Xem chi tiết
Nguyễn Trung Hiếu
20 tháng 3 2022 lúc 7:21

Câu 1: 
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.

Nguyễn Trung Hiếu
20 tháng 3 2022 lúc 7:22

Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.

Ánh sao
Xem chi tiết
Phạm Nguyễn Hồng Anh
28 tháng 2 2021 lúc 16:45

câu 1:

uses crt;

var p,i:integer;

begin

clrscr;

p:=1;i:=1;while i<=5 do

begin

p:=p*i;i:=i+1;

end;

write(p);

readln;

end. 

bai 2:

uses crt;var p,i:integer;begin    clrscr;    p:=1; i:=0;    while i <=10 do    begin

i:=i+1;        if (i mod 2<>0) then p:=p*i;    end;    write(p);    readln;end. bai 3:

uses crt;var n,i,p:integer;begin     clrscr;     write('nhap n: ');     readln(n);     i:=1;     p:=1;     while i<=n do     begin       if i mod 2=0 then p:=p*i;       i:=i+1;     end;     write(p);     readln;end.     

 

Nguyễn Lê Phước Thịnh
28 tháng 2 2021 lúc 19:17

*Cách khác: Dùng for

Câu 1: 

uses crt;

var p,i:longint;

begin

p:=1;

for i:=1 to 4 do 

  p:=p*i;

writeln(p);

readln;

end.

Câu 2: 

uses crt;

var i,s:longint;

begin

clrscr;

s:=1;

for i:=1 to 10 do

  if i mod 2=1 then s:=s*i;

writeln(s);

readln;

end.

Câu 3: 

uses crt;

var n,i,s:longint;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

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

writeln(s);

readln;

end.

Lady Ice
Xem chi tiết
Lam Ngo Tung
16 tháng 10 2017 lúc 21:49

a) Gọi A, B, C, D, E, G, H là tập hợp các số từ 1 đến 1000 mà theo thứ tự chia hết cho 2, chia hết cho 3, chia hết cho 5, chia hết cho 2 và 3, chia hết cho 2 và 5, chia hết cho 3 và 5, chia hết cho cả 3 số. Số phần tử của các tập hợp đó theo thứ tự bằng S1, S2, S3, S4, S5, S6, S7.

Ta có : S1 = 1000 : 2 = 500 ; S2 = [1000 : 3 ] = 333 ; S3 = 1000 : 5 = 200 ; S4 = [1000 : 6] = 166 ; S5 = 1000 : 10 = 100 ; S6 = [1000 : 15] = 66 ; S7 = [1000 : 30] = 33. Các số phải tìm gồm: S1 + S2 + S3 - S4 - S5 - S6 + S7 = 734 (số)
b) Còn lại : 1000 - 734 = 266 (số) Đáp số : a ) 734 số b ) 266 số
Lam Ngo Tung
16 tháng 10 2017 lúc 21:51

a) Gọi A, B, C, D, E, G, H là tập hợp các số từ 1 đến 1000 mà theo thứ tự chia hết cho 2, chia hết cho 3, chia hết cho 5, chia hết cho 2 và 3, chia hết cho 2 và 5, chia hết cho 3 và 5, chia hết cho cả 3 số. Số phần tử của các tập hợp đó theo thứ tự bằng S1, S2, S3, S4, S5, S6, S7.

Ta có : S1 = 1000 : 2 = 500 ; S2 = [1000 : 3 ] = 333 ; S3 = 1000 : 5 = 200 ; S4 = [1000 : 6] = 166 ; S5 = 1000 : 10 = 100 ; S6 = [1000 : 15] = 66 ; S7 = [1000 : 30] = 33. Các số phải tìm gồm: S1 + S2 + S3 - S4 - S5 - S6 + S7 = 734 (số)
b) Còn lại : 1000 - 734 = 266 (số) Đáp số : a ) 734 số b ) 266 số
Lê Đặng Tịnh Hân
Xem chi tiết
Nguyễn Ngọc Anh Thư
28 tháng 10 2017 lúc 11:03

Từ đồng nghĩa hoàn toàn là: quả - trái, bắp - ngô, vô - vào, thơm - khóm, kệ - giá, dương cầm - piano, máy thu thanh - radio, gan dạ - can đảm, nhà thơ - thi sĩ,...

Từ đồng nghĩa không hoàn toàn: hi sinh - mất mạng, sắp chết - lâm chung, vợ - phu nhân,...

Ví dụ:

Từ đồng nghĩa không hoàn toàn

1. Bạn Nam có một trái táo

Bạn Hương có một quả lê

2. Tôi có thể chơi đàn dương cầm

Bạn Hoa có thể chơi đàn piano

Từ đồng nghĩa không hoàn toàn

1. Anh ấy đã bị mất mạng trong 1 vụ tai nạn giao thông

Đã có rất nhiều chiến sĩ hi sinh để bảo vệ độc lập tổ quốc

2. Bác Nam và vợ của bác đều đang làm việc trên cánh đồng

Thủ tướng Trần Đại Quang và phu nhân đang về thăm quê hương

P/S: Bạn tick nhé! :)

Trường Nguyễn
Xem chi tiết
Bao112233
18 tháng 12 2022 lúc 10:06

Cau 1:

var i,dem:integer;

function ngto(n:longint):boolean;
var bo:boolean;
i:longint;
begin
    bo:=true;
    for i:=2 to n-1 do 
    if n mod i=0 then bo:=false;
    if n>1 then ngto:=bo else ngto:=false;
end;
begin
    for i:=2 to 100 do 
    if ngto(i) then dem:=dem+i;
    write(dem);
readln;
end.

Cau 2:

var i,dem,n:longint;

begin
    read(n);
    dem:=1;
    for i:=1 to n do 
    dem:=dem*i;
    write(dem);
readln;
end.

Nguyễn Lê Huy Hoàng
Xem chi tiết
Vương Thị Diễm Quỳnh
12 tháng 10 2015 lúc 19:33

sao bn lười vậy

những bài này có thể tự làm được mà

tho hit co
Xem chi tiết
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;

}

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.