Lớp 8A02 by Lâm Phước Hòa

lamphuochoa — 2022-03-16 07:44:58 UTC

Link trang Padlet

lamphuochoa — 2022-03-16 07:45:14 UTC

Gia phước

2022-03-16 08:00:31 UTC

var i,S: integer;
begin
While i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

Phạm Ngọc Hưng 8.

2022-03-16 08:02:48 UTC

var i:integer;

begin

for i:=1 to 100 do

if i mod 2=0 then write(' Cac so chan tu 1 den 100 la: ',i,' ');

readln;

end.

Thanh Toàn 34

2022-03-16 08:03:33 UTC

var i:integer;
begin
for i:=1 to 100 do
if i mod 2=0 then write(' Cac so chan tu 1 den 100 la: ',i,' ');
readln;
end.

27 thái thanh thảo

2022-03-16 08:04:30 UTC

Huỳnh Thùy Trâm 34

2022-03-16 08:05:03 UTC

var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End

7.TrinhHuy

2022-03-16 08:05:09 UTC

var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then :=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

Nguyễn Thị Thùy Dương 4

2022-03-16 08:06:26 UTC

var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End

1. Minh Châu

2022-03-16 08:07:44 UTC

Program : Tinh_tong;
Var S,i: Integer;
Begin
For i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln ('Tong cac so chan :',S);
Readln;
End.

Thanh Lý 17

2022-03-16 08:08:35 UTC

var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

39. Thanh Vân

2022-03-16 08:08:53 UTC

Program baitap_01
use crt;
var S,i:interger;
Begin
clrscr;
write ('Tính tổng các số chẵn từ 1-100');
for i:= 1 to 10 if i mod 2=0 then S:=S+i;
readln;
end.

5. Nguyễn Lê Gia Định

2022-03-16 08:09:14 UTC

var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

35. Ngọc trâm

2022-03-16 08:09:58 UTC

var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End

2022-03-16 08:10:14 UTC

Thạch Minh Quân 26.
var i:integer;

begin

for i:=1 to 100 do

if i mod 2=0 then write(' Cac so chan tu 1 den 100 la: ',i,' ');

readln;

end.

Lê Hồng Nhi 22

2022-03-16 08:12:33 UTC

var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End

3.NGUYỄN PHƯƠNG CƯỜNG

2022-03-16 08:13:43 UTC

11.Nguyễn Khoa

2022-03-16 08:13:44 UTC

var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

23 Việt Phong

2022-03-16 08:13:48 UTC

var i:integer;

begin

for i:=1 to 100 do if i mod 2=0 then S:=S+i;

write(' Cac so chan tu 1 den 100 la: ',i,' ');

readln;

end.

Var i, S: integer;BeginFor i:= 1 to 100 do if iMod 2 = 0 then S:=S+i;Writeln('Tong cac so chan :', S) ;Readln;End.

2022-03-16 08:14:44 UTC

Trần Khả thiên

38 . Lý Thị Ngọc Tuyền

2022-03-16 08:19:39 UTC

var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

40. Nguyễn Ngọc Yến

2022-03-16 08:20:03 UTC

var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

phuong

2022-03-16 08:20:43 UTC

var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

2 Sở Cường

2022-03-16 08:21:21 UTC

7.TrinhHuy

2022-03-16 08:23:52 UTC

14.liễu

2022-03-16 08:24:39 UTC

uses crt ;
var i, tong : integer;
begin
for to i:=1 do 100
if i mod 2-0 then tong :- tong + i;
write ('Tong cac so chan tu 1 den 100 la : ');
write(tong );
readln;
end

36 TTrinh

2022-03-16 08:25:22 UTC

var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

2022-03-16 08:25:25 UTC

21.Nguyễn Phan Hồng Ngọc

Trương Thanh Lan 13

2022-03-16 08:25:32 UTC

var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

11. Phạm Đăng khoa var i,S: Integer

2022-03-16 08:28:52 UTC

Begin
For i:= 1 to 100 do lf i mod 2 = 0
Then S:=s+i;
Writeln(`tong cac so chan :',S);
Readln;
End

@@@@@@@@@@@@@

lamphuochoa — 2022-04-06 05:50:26 UTC

@@@@@@@@@@@@@

lamphuochoa — 2022-04-06 05:50:40 UTC

@@@@@@@@@@@@@

lamphuochoa — 2022-04-06 05:50:52 UTC

@@@@@@@@@@@@@

lamphuochoa — 2022-04-06 05:50:56 UTC

Trọng, Trâm, Toàn --> P; Phong --> K

lamphuochoa — 2022-04-06 07:47:26 UTC

14.liễu

2022-04-06 08:03:47 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

Phạm Ngọc Hưng

2022-04-06 08:03:48 UTC

Program viet_chuong_trinh_tinh_tong;
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.

7.Trinh Huy

2022-04-06 08:03:48 UTC

Thanh Lý 17 Program viet_chuong_trinh_tinh_tong;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 08:05:19 UTC

Trương Thanh Lan 13

2022-04-06 08:06:48 UTC

Program viet_chuong_trinh_tinh_tong;
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.

Nguyễn Khoa

2022-04-06 08:07:16 UTC

Program viet_chuong_trinh_tinh_tong;
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.

6. Trung Hậu

2022-04-06 08:08:08 UTC

Program viet_chuong_trinh_tinh_tong;
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.

18 Triệu Gia Nghi

2022-04-06 08:08:27 UTC

Var i,S:integer;
Begin
i:=0;
While i<100 do lf i mod 2=0 then S:=S+i;
Writeln ('tong cac so chan:',S);
Readln;
End.

37 trọngggggg

2022-04-06 08:08:46 UTC

Program viet_chuong_trinh_tinh_tong;
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.

39. Thanh Vân

2022-04-06 08:09:03 UTC

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

thái thanh thảo

2022-04-06 08:09:36 UTC

program tinh_tong;
uses crt;
var i, tong : integer ;
begin
begin
for i:= 1 whlie 100 do lf i mod 2=0 then S:=S+i;
writeln('tong cac so chan:',S);
Readlnl;
end.

38 . Lý Thị Ngọc Tuyền

2022-04-06 08:10:09 UTC

Program viet_chuong_trinh_tinh_tong;
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.

36 Thanh Trinh

2022-04-06 08:11:07 UTC

var i,S:integer;
begin
i:0;
While i<=100 do if i mod 2 = 0 then S:=S+i;
Writeln (‘tong cac so chan:’S);
Readln
end

Trần Khả Thiên

2022-04-06 08:11:42 UTC

Program viet_chuong_trinh_tinh_tong;
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.

3.NGUYỄN PHƯƠNG CƯỜNG

2022-04-06 08:11:50 UTC

5. Nguyễn Lê Gia Định

2022-04-06 08:11:51 UTC

Program viet_chuong_trinh_tinh_tong;
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.

21 phuongw ngoc

2022-04-06 08:12:00 UTC

Program viet_chuong_trinh_tinh_tong;
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 08:12:00 UTC

11. Phạm Đăng Khoa
Program Tinh_tong;
Uses crt;
Var i,s: Integer;
Begin
For i:=1 to 100 do
If 1 mod 2 =0 then s:s+i;
Write (' Tong cac so chan tu 1 den 100 la: ' );
Write (S);
Readin;
End

1. Minh Châu

2022-04-06 08:12:02 UTC

Program Tinh_tong;
Uses crt;
Var i, S: interger;
Begin
i:=0;
While i<=100 do lf i mod 2=0 then S:=S+i;
Writeln(' tong cac so chan :',S);
Readln;
End.

Nguyễn Thị Thùy Dương 4

2022-04-06 08:12:39 UTC

Var i,S:integer;
begin
for i:= 1 whlie 100 do lf i mod 2=0 then S:=S+i;
writeln('tong cac so chan:',S);
Readlnl;
end.

Gia phước 25

2022-04-06 08:12:46 UTC

var i,S: integer;
begin
While i:= 1<=100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

40. Ngọc Yến

2022-04-06 08:13:12 UTC

Program viet_chuong_trinh_tinh_tong;
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.

2 Diệp Chung Sở Cường

2022-04-06 08:13:14 UTC

Tên: phạm minh khang lớp :7a2 1-10

2022-04-06 08:13:35 UTC

var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0
then S:=S+i
Writeln('tổng cac so chan:',s);
Readln;
end

Huỳnh Thùy Trâm 34

2022-04-06 08:16:12 UTC

var i,S: integer;
begin
While i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

2022-04-06 08:18:33 UTC

Hồng Nhi 22
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

19 thanh nghi

2022-04-06 08:19:08 UTC

Var i,S integer;
Begin
I:=0;
While(i<100)do if i mod 2=0 then
S:=S+i
I:=i+2
Writeln( tong cac so chan':S);
Readln;
End

2022-04-06 08:19:22 UTC

29. Ngô Thanh Thuý
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

2022-04-06 08:19:38 UTC

21. Nguyễn Phan Hồng Ngọc
uses crt ;
var i, tong : integer;
begin
while i<=100 if i mod 2=0 then tong := tong + i;
write ('Tong cac so chan tu nhien la : ');
readln;
end.