bài 1: viết chương trình tính tổng sau
S=1+2+3...+N
bài 2: viết chương trình pascal sử dụng biến mảng để tính tổng của dãy số, dãy số gồm n số nguyên nhập từ bàn phím.
bài 3: viết chương trình pascal nhập vào số báo danh của 5 bạn học sinh ( tên học sinh cho trước) số báo danh nhập từ bàn phím sau đó in số báo danh kèm tên ra ngoài màn...
Đọc tiếp
bài 1: viết chương trình tính tổng sau
S=1+2+3...+N
bài 2: viết chương trình pascal sử dụng biến mảng để tính tổng của dãy số, dãy số gồm n số nguyên nhập từ bàn phím.
bài 3: viết chương trình pascal nhập vào số báo danh của 5 bạn học sinh ( tên học sinh cho trước) số báo danh nhập từ bàn phím sau đó in số báo danh kèm tên ra ngoài màn hình
Bài 1: mình làm theo free pascal nhé
Uses crt;
Var i,n,tong:integer;
Begin
CLRSCR;
Writeln('Moi nhap n de tinh tong') Readln(n);
For i:=1 to n do
tong:=tong+i;
Writeln('Tong cua day tren la',tong);
Readln;
End.
Câu 2: mình làm theo Free pascal nhé
Bài Làm:
Uses crt;
Var n,i,tong:integer;
a ARRAY [1..100] of integer;
Begin
CLRSCR;
Writeln('Moi nhap do dai cua mang'); Readln(n);
For i:=1 to n do
Begin
Writeln('a[',i,']');
Readln(a[i]);
End;
tong:=0;
For i:=1 to n do
tong:=tong+a[i];
Writeln('Tong cua day tren la ',tong);
Readln;
End.