Question

Hôm nay là ngày đầu tuần , như thường lệ ta sẽ làm event tiếp

Câu hỏi như sau :

C1 : Viết chương trình tính tuổi của bạn Nam biết bạn Nam sinh năm 2003 . Hãy kiểm tra xem bạn Nam có đang ở trong tuổi vị thành niên hay không ( Tổ chức Y tế thế giới quy định là tuổi từ 10 - 19 tuổi là vị thành niên)

C2 : Viết chương trình tìm abc biết \(abc=a^3+b^3+c^3+3abc\) . Với abc là số nguyên

C3 : Viết chương trình tính tổng bằng cách sử dụng vòng lặp while..do . A=1+2+3+4+...+n với n là số nguyên dương được nhập từ bàn phím

Phần thưởng sẽ được trao với mỗi câu là 1GP . Tùy trường hợp các bạn trình bày tốt sẽ được tặng thêm 1GP

Answer 1

C1:

Var

a:integer;b: integer;

Begin

a:=0;

Writeln('Hay nhap nam can tinh:');

readln(b);

a:=b-2003;

if a>9 and a<20 then

writeln('Nam dang o trong tuoi vi thanh nien.')

else

writeln('Nam khong o trong tuoi vi thanh nien.');

readln;

end.

Answer 2

1.

program c1;

uses crt;

const namnay=2019;

namsinh=2003;

var tuoi:integer;

begin

clrscr;

tuoi:=namnay-namsinh;

if 10<=tuoi and 19>=tuoi then write('Nam o tuoi vi thanh nien ') else write('Nam khong o tuoi vi thanh nien');

readln

end.

Answer 3

C3:

Var

A:integer;n:integer;i:integer;

Begin

A:=0;

Writeln('Hay nhap so nguyen duong n:');

readln(n);

i:=1;

While i<=n do

A:=A+n;

writeln('Tong A bang:', A:10:4);

readln;

end.

Answer 4

var a,b,c:integer;

begin

write('so abc la:');

for a:=1 to 9 do

for b:=1 to 9 do

for c:=1 to 9 do

if a*100+b*10+c=a*a*a+b*b*b+c*c*c+3*a*b*c then write(a,b,c);

readln

end.

Answer 5

program cau3;

var i,n,A:integer;

begin

write('nhap n='); readln(n);

A:=0; i:=1;

while i<=n do

begin

A:=A+i;

i:=i+1;

end;

write('ket qua la:',A);

readln

end.

Answer 6

.

Answer 7

C2:

Var

a,b,c: integer;S:integer;

Begin

Writeln('Hay nhap a:');

readln(a);

Writeln('Hay nhap b:');

readln(b);

Writeln('Hay nhap c:');

readln(c);

S:=a^3+b^3+c^3+3abc;

Writeln('So abc la:', S:10:4);

readln;

end.

Answer 8

Như vậy bài làm của event này đã có kết quả phần thưởng qua lần kiểm tra bài làm như sau :

Câu 1 : Luân Đào (1GP) ; Nguyen (1GP)

Câu 2 : híp (1GP) ; Nguyen (bài làm sai và ý tưởng chưa đúng)

Câu 3 : híp (2GP) ; Nguyen (Bài làm tương đối có ý tưởng tốt 1GP)