Trang chủ Tin Học Lớp 8 vd 15:3* b clu Vết dr in ra Vết etr...

vd 15:3* b clu Vết dr in ra Vết etr tank trung bink cha Program ed in& integen y s longinty har begin tor i= s to Nd do iH i madoe o thient s 23 do id i ma

Câu hỏi :

Lm giúp mk vd 16 và 17 nhé mk cần gấp thanks

image

Lời giải 1 :

uses crt;

var i:word;

begin

clrscr;

for i:=1 to 9 do

begin

for j:=1 to 9 do

writeln(i,'x',j,'=',i*j);

end;

readln

end.

vd 17

uses crt;

var n,i,s:word; a:array[1..1000] of word;

begin

clcrscr;

write('n=');

readln(n);

for i:=1 to n do

begin

write('N',i,'=');

readln(a[i]);

s:=s+a[i];

end;

 write('TBC cua mang la:',s/n);

readln

end.

Thảo luận

-- Bn ơi cho mk hỏi word là gì và cánh bn giải là của lớp mấy
-- Của HSG lớp 7

Lời giải 2 :

program bai16;

uses crt;

var i,j:integer;

begin

clrscr;

for i:=1 to 9 do

 begin

  writeln('Bang cuu chuong ',i);

  for j:=1 to 9 do

   writeln(i,'*',j,'=',i*j);

 end;

readln

end.

program bai17;

uses crt;

var A:array[1..10000] of integer;

       n,i,t:integer;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

t:=0;

for i:=1 to n do

 begin

  write('Nhap phan tu thu ',i,': ');

  readln(A[i]);

  t:=t+A[i];

 end;

write('Trung binh cong cua mang la: ',t/n:2:2);

readln

end.

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 8

Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!

Nguồn : ADMIN :))

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK