Tin[tin 11]viết chương trình

[datduong771988@gmail.com]

Tách phần in số lẻ với số chẵn riêng ra được không?

 

[datduong771988@gmail.com]

uses crt;
var i:integer;
t:byte;
s:longint;
begin
writeln('Cac so chan tu 1 den 100 la:');
s := 0;
t := 0;
for i:=1 to 100 do
begin
if i mod 2 =0 then
begin
write(i:4);
inc(t);
if t=10 then
begin
writeln;
t := 0;
end;
end;
end;
writeln('Cac so le tu 1 den 100 la:');
for i:=1 to 100 do
if i mod 2 <>0 then
begin
write(i:4);
inc(t);
if t=10 then
begin
writeln;
t := 0;
end;
s := s+i;
end;
write('Tong cua cac so chan tu 1 den 100 la:',s);
readln
end.

 

[cậu là của tớ???]

Tách phần in số lẻ với số chẵn riêng ra được không?

em ko biết ak

 

[datduong771988@gmail.com]

Nhầm:
uses crt;
var i:integer;
t:byte;
s:longint;
begin
writeln('Cac so chan tu 1 den 100 la:');
s := 0;
t := 0;
for i:=1 to 100 do
begin
if i mod 2 =0 then
begin
write(i:4);
inc(t);
if t=10 then
begin
writeln;
t := 0;
end;
end;
end;
writeln('Cac so le tu 1 den 100 la:');
for i:=1 to 100 do
if i mod 2 <>0 then
begin
write(i:4);
inc(t);
if t=10 then
begin
writeln;
t := 0;
end;
end;
write('Tong cua cac so chan tu 1 den 100 la:',s);
readln
end.

 

[cậu là của tớ???]

if i mod 2 =0 then

có ai cho mình hỏi mình mới chỉ học câu lệnh if then else
cái này thiếu vế else nhỉ

end;
end;
end;

saop lại có 3 chữ end ak
thiếu cả clrscr

@kingsman(lht 2k2)