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

27.Huỳnh Nhật Thăng (đã sửa)

2022-03-09 10:01:07 UTC

program tinh_tong_cac_so_le;
var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln
end.

24Gia Phú

2022-03-09 10:03:06 UTC

program tinh_tong_cac_so_le;
var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln;
end.

29.Lê Hoàng Thi

2022-03-09 10:03:40 UTC

program Tinh_tong;
uses crt;
var i,s:longint;
begin
clrscr;
s:=0;
for i:=1 to 100 do
if i mod 2<>0 then
s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,s);
readln;
end.

17 Long Ngân

2022-03-09 10:05:10 UTC

program Tinh_tong;
var N,i : Integer;
S: longint;
begin
write ('Nhap so N = '); readln (N);
S:=0;
for i := 1 to 100 do S:=S+i;
writeln ('Tong cua ',N,' cac so le tu 1 den 100 la S');
readln
end.

39. Lai Lâm Yến Vy

2022-03-09 10:05:23 UTC

program Tinh_tong;
var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln
end.

1.Nguyễn Thanh An

2022-03-09 10:05:33 UTC

Program Tinh_tong ;
Uses crt;
Var s,i : integer;
Begin
Clrscr;
S:=0;
For i:= 1 to 100 do
If (i mod 2=1) then S:=S+i;
Write(‘tong le la’,S);
Readln
End.

33. Đỗ Ngọc Thủy Tiên

2022-03-09 10:05:37 UTC

program Tinh_tongle;
var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln;
end.

Tạ Thuý Hoa 6

2022-03-09 10:05:42 UTC

program tinh_tong_cac_so_le;
var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln;
end.

Kiệt 11

2022-03-09 10:06:03 UTC

Program tinh_tong_cac_so_le;

Var s,i :longint;

Begin

S:=0;

For i:= 1 to 100 do

If (i mod 2=1) then S:=S+i;

Write(‘tong le la’,S);

Readln

End.

35. Đình Tiến

2022-03-09 10:06:33 UTC

Program Tinh_tong;
Var i,S: longint;
Begin
S:=0;
For i:=1 to 100 do if i mod 2<>0 then S=S+i;
Writeln('Tong cac so le tu 1 den 100',S);
Readln
End.

23. Nguyễn Thành Phát

2022-03-09 10:06:42 UTC

program Tinh_tong;

var s,i : integer;
begin

s:=0;

for i:= 1 to 100 do

if (i mod 2=1) then S:=S+i;

write(‘tong le la’,S);

readln;

end.

Triệu Thanh Bằng 2

2022-03-09 10:06:51 UTC

Program tong_le;
Uses crt;
Var s,i : integer;
Begin
Clrscr;
S:=0;
For i:= 1 to 100 do
If (i mod 2=1) then S:=S+i;
Write('tong le la',S);
Readln
End

2022-03-09 10:07:19 UTC

Program tinh_tong_cac_so_le;
var N,i,s:longint;
Begin
S:=0;
For i:= 1 to 100 do
If i mod 2<>0 then s:=s=+i;
Write(‘tong le la’,S);
Readln

End.

18_tram hữu nghiệp

2022-03-09 10:07:24 UTC

program tinh_tong_cac_so_le;
var N,i,s:longint;
begin
_N);
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i; writeln('Tong cac so le tu 1 dene tu
100: ,S);
readln;
end.

Nguyễn Thùy Trang 36

2022-03-09 10:07:28 UTC

Program tinh_tong;
var N,i,s:longint;
Begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln;
end.

Mỹ Ngân 16

2022-03-09 10:07:29 UTC

program oken;
uses crt;
var i,sum:longint;
begin
clrscr;
sum:=0;
for i:=1 to 100 do
if i mod 2<>0 then
sum:=sum+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,sum);
readln;
end.

26 Nguyen Huynh Truc Thanh

2022-03-09 10:07:37 UTC

program tinh_tong_cac_so_le;
var N,i,S: Longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln('Tong cac so le tu 1 den 100: 'S);
readln;
end.

Triệu Thanh Hữu

2022-03-09 10:07:49 UTC

program tinh_tong
uses crt;
var i,sum:longint;
begin
clrscr;
sum:=0;
for i:=1 to 100 do
if i mod 2<>0 then
sum:=sum+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,sum);
readln;
end.

40.Trần Thị Kiều Vy

2022-03-09 10:07:56 UTC

program tinh_tong_so_le;
var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln;
end.

31

2022-03-09 10:08:24 UTC

program Tinh_tong;
var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln
end.

25

2022-03-09 10:10:48 UTC

program Tinh_tong;
uses crt;
var S,i,N: longint;
begin
S:=0;
for i:= 1 to 100 do
if (i mod 2=1) then S:=S+i;
writeln(‘Tong cac so le tu 1 den 100: ',S);
readln
end.

30. Ông quan phú thịnh.Program tong_va_le;

2022-03-09 10:11:43 UTC

Uses crt;
Var s,i :interger;
Begin
Clrscr;
S:=0;
For i:= 1 to 100 do
If (i mod 2=1) then S:=S+i;
Write('tong le la',S);
Readln
End.

Mình ngoan 19

2022-03-09 10:14:53 UTC

program Tinh_tong_cac_so_le;
var N, i , S : longint;
begin
S=:0;
for i :=1 to 100 do
if i mod 2<>0 then S:=S+i;
writeln('tong các so le tu 1 den 100's);
readln
end.

Tạ quốc thắng 28

2022-03-09 10:26:05 UTC

Program oken;
Var i, sun:longint;
Begin
Sum:=0;
For i:=1 to 100 do
if i mod 2 <> 0 then
Sum:=sum+i;
Writeln(‘Tong cac so le tu 1 den 100:’ ,sum);
Readln;
End.

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

lamphuochoa — 2022-04-06 05:51:27 UTC

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

lamphuochoa — 2022-04-06 05:51:31 UTC

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

lamphuochoa — 2022-04-06 05:51:35 UTC

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

lamphuochoa — 2022-04-06 05:51:41 UTC

lamphuochoa — 2022-04-06 09:32:14 UTC

29.Lê Hoàng Thi

2022-04-06 09:38:31 UTC

chương trình tinhtong_N; {tinh tong so chan N bang while .. do}
using crt;
var i: số nguyên;
S: longint;
const n = 100
begin
clrscr;
Đ / s: = 0;
i: = 0;
while i begin
i:=i + 1;
if i mod 2 = 0 then S: = S + i;
writeln ('tong cac so chan tu 1 -> 100' là = ', S);
readln;
chấm dứt

16 mỹ ngân

2022-04-06 09:41:18 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.Lai Lâm Yến Vy

2022-04-06 09:41:32 UTC

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

33.Đỗ Ngọc Thủy Tiên

2022-04-06 09:41:40 UTC

program Tinh_tong_cac_so_chan;
Uses Crt;
var S,i :Integer;
begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
end;
writeln('Tong cac so chan tu 1 den 100 :',S);
readln;
end.

Như ý

2022-04-06 09:42:15 UTC

Program Tinh Tong;
Var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then S:=s+i;
Writeln('Tong so le tu 1 den 100);
readln
end

24 Gia Phú

2022-04-06 09:42:36 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.

27 Huỳnh Nhật Thăng (đã sửa)

2022-04-06 09:44:54 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.

01Nguyễn Thanh An

2022-04-06 09:46:24 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 Thùy Trang

2022-04-06 09:47:05 UTC

program Tinh_tong_cac_so_chan;
Var i,S: integer;
begin
i:=0;
while (i>1) and (i<=100)
begin
s:=s+i;
i:=i+2;
writeln ('tong các so chan',S);
readln;
End.

37 Lê Song Bảo Trân

2022-04-06 09:47:46 UTC

pogram tinh_tong_cac_so_le;
var N,i,S:longint;
begin
S:=0;
for i:=1 to 100 do;
if mod 2<>0 then S:=S+i;
writeln(‘Tong cac so le tu 1 den 100:’,S);
readln;
end

26 Nguyễn Huỳnh Trúc Thanh

2022-04-06 09:47:57 UTC

Program Tinh_tong_cac_so_chan;
uses crt;
Var i,s: integer;
Begin
Clrscr;
i:=2;
While i>1 and i<=100 do
S:=S+i;
Writeln(‘tong cac so Chan’,S);
Readln;
End.

35. Nguyễn Đình Tiến

2022-04-06 09:48:06 UTC

Var i,S: integer;
Begin
Writeln('Chuong trinh tinh tong cac so chan tu 1 den 100')
i:=0; S:=0;
While i<=100 do
begin
if i mod 2=0 then S:=S+i;
i:=i+1;
end;
Write('Tong cac so chan tu 1 den 100',S);
Readln;
End.

Sử Nghi Lân 12

2022-04-06 09:50:26 UTC

program Tinh_tong_cac_so_chan
var S,i :Integer;
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 :',S);
readln;
end.

30.Thịnh

2022-04-06 09:50:30 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 09:52:11 UTC

Thanh Bằnggggggg2
Program tinhtong_N;(tinh tong so chan N bang while do)
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 tu 1 den 100 :',S);
Readln;
End.

22.Nguyễn hoàng phát

2022-04-06 09:52:52 UTC

Program Tinh_tong_cac_so_chan;
uses crt;
Var i,S: integer
begin
Clrscr;
i:=0;
while i<=100 do if i mod 2=0 then
S:=S+i;
writeln (' tong cac so chan',S);
readln;
end.

11Kiệt

2022-04-06 09:54:50 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.

23. Nguyễn Thành Phát

2022-04-06 09:58:34 UTC

Program tinh_tong_cac_so_chan;
Uses ctr;
Var i,S: integer;
Begin
Clrscr;
i:=0;
While I <= 100 do
Writeln('tong_cac_so_chan',S);
Readln;
End.

40. Trần Thị Kiều Vy

2022-04-06 09:58:51 UTC

program Tinh_tong_cac_so_chan;
Var i,S: integer;
begin
i:=0;
while (i>1) and (i<=100)
begin
s:=s+i;
i:=i+2;
writeln ('tong các so chan',S);
readln;
End.

Lâm Nguyên Khương 10

2022-04-06 09:59:45 UTC

program tinh_tong_cac_so_chan;
uses ctr;
var i,S: integer
begin
clrscr;
i:=0;
while i<100 do if i mod 2=0 then S:=S+1
writeln('tong cac so chan',S);
readln;
end.

2022-04-06 10:00:15 UTC

Sử Nghi Lân 12
program Tinh_tong_cac_so_chan
var S,i :Integer;
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 :',S);
readln;
end.

15 thanhngan

2022-04-06 10:01:10 UTC

Program viet_chuong_trinh_tinh_tong;
Var i: integer;
s: integer
Begin
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.

17Long Ngan

2022-04-06 10:02:08 UTC

var S,n: integer;
begin
S:=0; n:=0;
while S<=100 do
begin
n:=n+1; S:= S+n;
end
write('Ket qua la:',S);
readln;
End.

Tuyết Lê 13

2022-04-06 10:03:23 UTC

program tinh_tong_cac_so_chan;
uses ctr;
var i,S: integer
begin
clrscr;
i:=0;
while i<100 do if i mod 2=0 then S:=S+1
writeln('tong cac so chan',S);
readln;
end.

22.Nguyễn hoàng phát

2022-04-06 10:04:16 UTC

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

Trầm hữu nghiệp 18

2022-04-06 10:11:52 UTC

Program
viet_chuong_trinh_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.

Bảo Thy 32

2022-04-06 12:32:52 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.