Tin học Viết chương trình

[Vy Mity]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình tính tổng bình phương các số lẻ từ 1 đến N sao cho 1[tex]\leq N\leq 100[/tex]
In ra D1 In kết quả tổng
D2 In số các số
D3 In ra tất cả các số

 

[Tạ Đặng Vĩnh Phúc]

đoạn chính này em:

for i:=1 to N do
if i mod 2 > 0 then sum = sum + i * i;

 

[Vy Mity]

đoạn chính này em:

for i:=1 to N do
if i mod 2 > 0 then sum = sum + i * i;

Anh ơi gán điều kiện cho N như thế nào ạ. Anh dùng repeat ... unitl cho em hiểu với ạ

 

[Tạ Đặng Vĩnh Phúc]

Em có thể làm thế này

repeat
writeln ('Nhap n = ');
readln (n);
if not ((1 <= n) and (n<=100)) then writeln ('Nhap sai, nhap lai!');
until (1<=n) and (n<=100);

 

[ngocanh_bxl]

uses crt;
var n:word;
a:array[1..100] of byte;
procedure xuly;
var d,i:byte;
t:integer;
begin
d:=0;
t:=0;
for i:= 1 to n do
begin
if i mod 2=1 then
begin
t:=t+sqr(i);
inc(d);
a[d]:=i;
end;
end;
writeln('tong ',t);
writeln('so cac so ',d);
writeln('tat ca cac so');
for i:= 1 to d do write(a:5);
readln;
end;
begin
clrscr;
repeat
write('nhap n '); readln(n);
if (n<1) or (n>100) then writeln('khong hop le');
until (n>=1) and (n<=100);
xuly;
end.