Question

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

Answer 1

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.

Answer 2

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.

Answer 3

chỗ bài 1 dưới phần readln(n) bạn thêm vào dòng ''tong:=0;'' nhé

Answer 4

còn câu 3 thì mình chưa nghĩ ra

Answer 5

var n,i,s:integer;

begin

read(n);

s:=0;

for i:=1 to n do s:=s+i;

write(s);

end.

Answer 6

2.

var a:array[1..100] of integer;

n,i,s:integer;

begin

read(n);

for i:=1 to n do read(a[i]);

s:=0;

for i:=1 to n do s:=s+ a[i];

write(s);

end.

Answer 7

Lời giải :

Bài 3 :

program hotrotinhoc ;

var a,b,c,d,e : integer ;

begin

write('Ten hoc sinh : Nguyen Van A ; So bao danh :');

readln(a);

write('Ten hoc sinh : Nguyen Van B ; So bao danh :');

readln(b);

write('Ten hoc sinh : Nguyen Van C ; So bao danh :');

readln(c);

write('Ten hoc sinh : Nguyen Van D ; So bao danh :');

readln(d);

write('Ten hoc sinh : Nguyen Van E ; So bao danh :');

readln(e);

readln

end.

Lưu ý : Mình sẽ lấy tên ví dụ thôi nhé

Answer 8

Bài 3: Bài này mình có thể thực hiện in số báo danh và tên với n thí sinh chứ không phải chỉ 5 thí sinh nhé! Tên bạn có thể nhập theo danh sách có sẵn hoặc tự sáng tác cũng được. Số báo danh cũng vậy nhé!