đề tin 1 tiết

[sagacious]

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

bài hơi khó nên cố gắng nha!
1. viết chương trình tính tổng các số tự nhiên nhỏ hơn 9
2. cho N nhập từ bàn phím sao cho 0<N<1000. viết chương trình nhập lại nếu N ko thỏa mãn điều kiện
3. viết chương trình &gt;-tình tông các số chẵn (lẻ) trong mảng A (tự cho)

 

[harry9xsakura]

1,program tinhtong;
uses crt;
var i,n:integer;
begin clrscr;
writeln('tong cac so tu nhien nho hon 9 la');
for i:=1 to 8 do n:=n+i;
write(n);
readln;
end.

2,program nhapso;
uses crt;
var n:integer;
begin clrscr;
repeat
writeln('nhap so n');
readln(n);
until (n>0) and (n<1000);
end.

3,program tinhtong;
uses crt;
var a:array[1..100]of longint;
tong1,tong2,i,n:longint;
begin clrscr;
writeln('nhap so phan tu cua mang A');
readln(n);
writeln('nhap cac so cua mang');
for i:=1 to n do
begin
readln(a);
if a mod 2=0 then tong1:=tong1+a
else tong2:=tong2+a;
end;
writeln('tong cac so chan trong mang A la ',tong1);
writeln('tong cac so le trong mang A la ',tong2);
readln;
end.

 

[minminseok]

Bài 1

var i,n:integer;
begin 
      clrscr;
      writeln('tong cac so tu nhien nho hon 9 la: ');
      for i:=1 to 8 do n:=n+i;
      write(n);
readln
end.

Bài 2

var n:integer;
begin
   clrscr;
   repeat
   write('nhap so n'); readln(n);
   until (n>0) and (n<1000);
readln
end.

Bài 3 sgk và sbt Tin 8 có hướng dẫn.