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

[tydfdg]

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

2 NHap vao so N>0 (2-> 10).In ra bang cu =u chuong cua N
3 Nhap vao 1 so N>0. viet ct tinh va in ra
- cac so le tu 1 den N
- tong cac so le
- so so le

 

[trà nguyễn hữu nghĩa]

2 NHap vao so N>0 (2-> 10).In ra bang cu =u chuong cua N
3 Nhap vao 1 so N>0. viet ct tinh va in ra
- cac so le tu 1 den N
- tong cac so le
- so so le

Phần khai báo biến bạn tự khai báo nha
2)

for i := 1 to 10 do
begin
          writeln(N,' x ',i,' = ',N*i);
end;

3)

for i := 1 to N do
begin
          if i mod 2 <> 0 then
          begin
               writeln(i); {Các số lẻ từ 1 đến N}
               tong := tong + i;
               dem := dem + 1;
          end;
end;
writeln('Tong cac so le la: ',tong);
writeln('So cac so le la: ',Dem);