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.

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.

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.

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.     

 

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

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ố

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ố

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é! :)

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.

sao bn lười vậy

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

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;

}

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.

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.