Bài tập 8A12 by Lâm Phước Hòa

Website chạy Pascal:

lamphuochoa — 2022-03-16 06:43:46 UTC

Link Padlet

lamphuochoa — 2022-03-16 06:58:12 UTC

lamphuochoa — 2022-03-16 07:04:10 UTC

Số 17 - Nguyễn Hà Quốc Nam

2022-04-06 07:05:06 UTC

5. Nguyễn Đình Gia Bảo

2022-04-06 07:08:20 UTC

1-Nguyễn Lê Thảo An

nguyenlethaoan6789 — 2022-04-06 07:10:00 UTC

10

dangvutruonggiang969 — 2022-04-06 07:10:30 UTC

Số 25. Ca Thành Phát

cathanhphat2k8 — 2022-04-06 07:11:21 UTC

program tinh_tong_cac_so_chan;
uses crt;
var i,s : integer;
begin
clrscr;
i:=2;
while (i>1) and (i<=100) do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
readln;
end.

2022-04-06 07:12:18 UTC

29. Triệu Quốc Thuận

24.Nguyễn Gia Như

2022-04-06 07:12:19 UTC

Var i:integer;
tong: integer;
Begin
tong:=0; i:=2;
While i<100 do
Begin
tong:=tong+i;
i:=i+2;
end;
writeln('tong cac so chan tu 1 - 100 la',tong);
readln;
end.

9-Trương Triều Dũng

2022-04-06 07:14:09 UTC

Uses Crt;

var i,s:integer;

Begin

Clrscr;

i:=2;

While (i>1) and (i<=100) do

begin

s:=s+i;

i:=i+2;

end;

writeln(S);

readln;

end.

2022-04-06 07:14:20 UTC

18-Nguyễn Hữu Nghĩa

2022-04-06 07:15:25 UTC

program bai_tap;
uses crt;
var i,s : integer;
begin
clrscr;
i:=2;
while (i>1) and (i<=100) do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
readln;
end.

22.Võ Ý Nhi

2022-04-06 07:15:44 UTC

Program BT1;
Var i:integer;
tong: integer;
Begin
tong:=0; i:=2;
While i<100 do
Begin
tong:=tong+i;
i:=i+2;
end;
writeln('tổng các số chẳn từ 1 - 100 la',tong);
readln;
end.

2022-04-06 07:15:56 UTC

32 Quách Hớn Tường

09-Linh Đan

2022-04-06 07:16:25 UTC

Program baitap;
Uses crt;
Var i,n:integer;
Begin
i:=2;
While i<=100 do
Begin
n:=n+i; i:=i+2;
End;
Writeln (' Tong cac so chan tu 1-100 la ',n);
End.

06_Nguyễn Lâm Minh Châu

nlmchau08 — 2022-04-06 07:16:38 UTC

Program Bai_tap_1;
uses crt;
var i,s: integer;
begin
clrscr;
i:=2;
while (i>1) and (i<=100) do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
readln
end.

23. Bùi Phạm Quỳnh Như

2022-04-06 07:17:20 UTC

Var i:integer;
Tong: integer
Begin
Tong:=0; i:=2;
While i<100 do
Begin
Tong:=tong+i;
i:=i+2;
end;
writeln('tong cac so chan tu 1 - 100 la',tong);
readln;
end.

NGuyên an

2022-04-06 07:17:27 UTC

12

2022-04-06 07:18:00 UTC

23

daiminh140908 — 2022-04-06 07:18:20 UTC

Var i:integer;
Tong: integer
Begin
Tong:=0; i:=2;
While i<100 do
Begin
Tong:=tong+i;
i:=i+2;
end;
writeln('tổng các số chẳn từ 1 - 100 la',tong);
readln;
end.

05-Duong Quang Bao

2022-04-06 07:18:21 UTC

program BT;
uses crt;
var i,s : integer;
begin
clrscr;
i:=2;
while (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2
end;
writeln(s);
readln;
end.

Thiện Cường 07

2022-04-06 07:18:40 UTC

program BT1;
uses crt;
Var i:integer;
tong: integer;
Begin
tong:=0; i:=2;
While i<100 do
Begin
tong:=tong+i;
i:=i+2;
end;
writeln('tong cac so chan tu 1 - 100 la',tong);
readln;
end.

21. Bảo Ngọc

2022-04-06 07:19:21 UTC

Var S: longint;
i: integer;
Begin
i:=0; S:=0
While i<=100 do if i mod 2=0 then S:=S+i;
Writeln('Tong cac so chan tu 1-100 la', S);
Readln;
End.

13 Ly Dai Minh

daiminh140908 — 2022-04-06 07:22:17 UTC

3-Danh Nguyễn Phương Anh

2022-04-06 07:22:26 UTC

uses crt ;

truongkhangst1990 — 2022-04-06 07:24:33 UTC

var i : integer
tong : longint;
begin
clrscr;
i:=2;
white i<=100 do
if i mod 2 =0 then
begin
tong:= tong +i;
i:= i+2;
end;
writeln(tong);
readln;
end.

18-Nguyễn Uyên Minh

2022-04-06 07:26:51 UTC

program tinh_tong;
uses crt;
var i,S interger;
begin
i:=0;
while i<=100 do if i mod 2=0 then S:=S+i;
writeln ('Tong cac so chan tu 1 den 100 la', S);
readln;
end.

Số 17 - Nguyễn Hà Quốc Nam

2022-04-06 07:41:53 UTC

5. Nguyễn Đình Gia Bảo (BT 4/6)

2022-04-06 07:57:25 UTC

1-Nguyễn Lê Thảo An

nguyenlethaoan6789 — 2022-04-06 10:45:53 UTC

Viết chương trình tính giá trị N của phân số......

34

2022-04-06 22:53:48 UTC

VCT tính giá trị N....

Trung Hiếu 11

2022-04-07 07:28:55 UTC

Uses crt;
var t,s:real;
i,n:integer;
begin
clrscr;
n:=1;
t:=0;
while t < 1 do
begin
s:=1/(2+n);
t:=t+s;
n:=n+1;
end;
writeln(n-1);
readln
end.

Nguyên An 7/4

2022-04-07 07:31:16 UTC

28. Trần Thế Thông (BT 6/4 -> 7/4)

2022-04-07 08:03:35 UTC

24.Gia Như 7/4

2022-04-07 08:32:55 UTC

Uses crt;
var t,s:real;
i,n:integer;
begin
clrscr;
n:=1;
t:=0;
while t < 1 do
begin
s:=1/(2+n);
t:=t+s;
n:=n+1;
end;
writeln(n-1);
readln
end.

23. Bùi Phạm Quỳnh Như bài 7/4

2022-04-07 08:34:10 UTC

Thiện Cường 07

2022-04-07 08:39:56 UTC

uses crt;
var i,n:integer;
m,s:real;
begin
clrscr;
n:=1;
m:=0;
while m<1 do
begin
s:=1/(2+n)
m:=m+s;
n:=n+1;
end;
writeln(n-1);
readln;
end.

21.Bảo Ngọc

2022-04-07 09:49:09 UTC

var a,S : real;
i,N: integer;
begin
N:=1; a:=0;
While a<1 do
begin S:=1/(2+N);
a:=a+S;
N:=N+1;
end;
writeln('Gia tri N la', N);
readln;
end.

29. Triệu Quốc Thuận bài tập(6/4-7/4)

2022-04-07 10:48:23 UTC

15 Ly Dai Minh

souler1409 — 2022-04-07 11:24:44 UTC

9-Linh Đan

2022-04-07 11:36:15 UTC

22. Võ Ý Nhi

2022-04-07 11:59:56 UTC

program BT2;
Var i:integer;
Tong: integer
Begin
Tong:=0; i:=2;
While i<100 do
Begin
Tong:=tong+i;
i:=i+2;
end;
writeln('Tong cac so chan tu 1 - 100 la',tong);
readln;
end.

18-Nguyễn Hữu Nghĩa

2022-04-07 13:17:25 UTC

uses crt;
var i,n:integer;
m,s:real;
begin
clrscr;
n:=1;
m:=0;
while m<1 do
begin
s:=1/(2+n)
m:=m+s;
n:=n+1;
end;
writeln(n-1);
readln;
end.

19. LKN

2022-04-07 21:47:44 UTC

var a,S: real;
i,N: interger;
begin
N:=1; a:=0;
While a<1 do
begin S:=1/(2+N);
a:= a + S;
N:= N+1;
end.
Writeln('Gia tri N la',N);
readln;
end.

12

2022-04-08 09:48:02 UTC