1. Viết Chương Trình In Ra Màn Hình 5 Chữ Xin Chào ...

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

• • Đăng nhập
  • |
  • Đăng ký
  

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

+

Lưu vào

• +

  Danh mục mới

Lưu

• phuongvii
• Chưa có nhóm

• Trả lời

  1

• Điểm

  92

• Cảm ơn

  0

• Tin Học
• Lớp 8
• 60 điểm
• phuongvii - 23:48:09 26/05/2020

1. Viết chương trình in ra màn hình 5 chữ Xin chào. và 5 chữ Tôi là Pascal. 2. Viết chương trình tính tổng từ 1 - 50. 3. Viết chương trình tính tích từ 1 - 10 4. Viết chương trình tính dãy số thập phân từ 1+1/2+1/3+1/4+...+1/9 5. Viết chương trình tính dãy số thập phân từ 1+1/3+1/5+1/7+1/9. Hướng dẫn: For i:=1 to 9 do if i mod 2 <> 0 then Tong := Tong + 1/i; 6. Viết chương trình tính dãy số thập phân từ 1+1/2+1/4+1/6+1/8. 7. Nhập vào 1 số nguyên n . In ra tổng các số từ 1 - n 8. Viết chương trình nhập vào từ bàn phím số nguyên dương n, sử dụng câu lệnh điều kiện để tính tổng các giá trị là số chẵn trong phạm vi từ 1 dến n, sau đó in ra màn hình. Gợi ý: Cũng giống như bài tính tổng các số từ 1 đến n, nhưng ta phải sử thêm câu điều kiện IF và phép chia lấy phần dư. - Nhập n; - Từ giá trị trên của n hãy viết vòng lặp với giá trị i chạy từ 1 đến n. Ứng với mỗi giá trị của i, ta kiểm tra xem nếu i là số chẵn thì tính tổng. 9. Ta kí hiệu n! là tích n số tự nhiên đầu tiên: n! = 1.2.3...n. Viết chương trình tính n! với n là số tự nhiên được nhập vào từ bàn phím. Hướng dẫn: - Nhập n; - Tich:=1; - For i:=1 to n do Tich:=Tich*i; 10.Em hãy viết chương trình tính tổng các số nguyên liên tiếp từ n đến m với n, m là các số nguyên dương nhập vào từ bàn phím. Gợi ý: - Nhập n, m; - Vòng lặp For với giá trị i chạy từ n đến m. 11.Viết chương trình tính tổng bình phương các số tự nhiên từ 1 đến n, biết giá trị của n được nhập vào từ bàn phím Gợi ý: Cũng giống như bài tính tổng các số từ 1 đến n, ta thực hiện các bước sau: - Em hãy viết chương trình xuất ra thông báo giới thiệu tện chương trình và yêu cầu người sử dụng nhập giá trị của n, đọc giá trị của n - Từ giá trị trên của n hãy viết vòng lặp để tính tổng bình phương của các số tự nhiên theo cú pháp: tổng = tổng + i*i (Với i chạy từ 1 đến N). 12. Viết chương trình xuất ra các bội số của B trong phạm vi từ 1 đến N, với giá trị B, N được nhập vào từ bàn phím Gợi ý: Cách làm tương tự bài trên - Em hãy viết chương trình xuất ra thông báo giới thiệu tên chương trình và yêu cầu người sử dụng nhập giá trị của B,N; đọc giá trị của B,N - Từ giá trị trên của B, N hãy viết vòng lặp với giá trị i chạy từ B đến N. Ứng với mỗi giá trị của i, ta kiểm tra xem nếu i chia hết cho B thì in giá trị của i ra màn hình. 13. Viết chương trình kiểm tra xem C có phải là số hoàn hảo hay không? Gợi ý: C là số hoàn hảo khi tổng các ước từ 1 đến C-1 bằng chính C. Ví dụ: 6 là số hoàn hảo vì có tổng các ước nhỏ hơn nó bằng chính nó: 1+2+3=6 - Em hãy viết chương trình xuất ra thông báo giới thiệu tên chương trình và yêu cầu người sử dụng nhập giá trị của C, đọc giá trị của C - Từ giá trị trên của C hãy viết vòng lặp với giá trị i chạy từ 1 đến C-1. Ứng với mỗi giá trị của i, ta kiểm tra xem nếu C chia hết cho i thì in tính tổng.

• Hỏi chi tiết
• Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

• Datdoan03
• Chưa có nhóm

• Trả lời

  869

• Điểm

  24096

• Cảm ơn

  642

• Datdoan03

• 27/05/2020

1)

program bai1;

uses crt;

var i:integer;

begin clrscr;

for i:=1 to 5 do

begin

writeln('Xin chao');

writeln('Toi la Pascal');

end;

readln;

end.

2)

program bai2;

uses crt;

var S:integer;

i:integer;

begin clrscr;

S:=0;

for i:=1 to 50 do

S:=S+i;

write('Tong tu 1-50 la: ',S);

readln;

end.

3)

program bai3;

uses crt;

var T:integer;

i:integer;

begin clrscr;

T:=1;

for i:=1 to 10 do

T:=T*i;

write('Tich tu 1-10 la: ',T);

readln;

end.

4)

program bai4;

uses crt;

var S:integer;

i:integer;

begin clrscr;

S:=0

for i:=1 to 9 do

S:=S+1/i;

write('Tong day so la: ',S);

readln;

end.

5)

program bai5;

uses crt;

var S:integer;

i:integer;

begin clrscr;

S:=0

for i:=1 to 9 do

if i mod 2<>0 then

S:=S+1/i;

write('Tong day so la: ',S);

readln;

end.

6)

program bai6;

uses crt;

var S:integer;

i:integer;

begin clrscr;

S:=0

for i:=1 to 8 do

if i mod 2=0 then

S:=S+1/i;

write('Tong day so la: ',S);

readln;

end.

7)

program bai7;

uses crt;

var S:integer;

i,n:integer;

begin clrscr;

writeln('Nhap 1 so n: '); readln(n);

S:=0;

for i:=1 to n do

S:=S+i;

write('Tong la: ',S);

readln;

end.

8)

program bai8;

uses crt;

var S:integer;

i,n:integer;

begin clrscr;

writeln('Nhap 1 so n: '); readln(n);

S:=0;

for i:=1 to n do

if i mod 2=0 then

S:=S+i;

write('Tong la: ',S);

readln;

end.

9)

program bai9;

uses crt;

var T:integer;

i,n:integer;

begin clrscr;

writeln('Nhap 1 so n: '); readln(n);

T:=1;

for i:=1 to n do

T:=T*i;

write('n! la: ',T);

readln;

end.

10)

program bai10;

uses crt;

var S:integer;

i,n,m:integer;

begin clrscr;

writeln('Nhap n va m: '); readln(n,m);

S:=0;

for i:=n to m do

S:=S+i;

write('Tong la: ',S);

readln;

end.

11)

program bai11;

uses crt;

var S:integer;

i,n:integer;

begin clrscr;

writeln('Nhap 1 so n: '); readln(n);

S:=0;

for i:=1 to n do

S:=S+i*i;

write('Tong la: ',S);

readln;

end.

12)

program bai12;

uses crt;

var b:integer;

i,n,B:integer;

begin clrscr;

writeln('Nhap so n va B: '); readln(n,B);

b:=0;

for i:=B to n do

if i mod B=0 then

write('Boi cua B la: ',b);

readln;

end.

13)

program ct;

uses crt;

var C,i:integer;

S:longint;

begin clrscr;

write('Nhap so C: '); readln(C);

S:=0;

for i:=1 to (C-1) do

if (C mod i=0) then S:=S+i;

if S=C then writeln(C,' la so hoan hao')

else writeln(C,' khong phai la so hoan hao');

readln;

end.

Học tốt!

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar3 voteGửiHủy

• Cảm ơn 3
• Báo vi phạm

• 
  • Datdoan03
  • Chưa có nhóm
  • Trả lời

    869

  • Điểm

    24096

  • Cảm ơn

    642

  bài 13 m ko bít làm, bạn thông cảm cho m nha!

• 
  • Datdoan03
  • Chưa có nhóm
  • Trả lời

    869

  • Điểm

    24096

  • Cảm ơn

    642

  Cho m câu tlnt nha!

• 
  • ttphulhp
  • Chưa có nhóm
  • Trả lời

    913

  • Điểm

    17366

  • Cảm ơn

    515

  program oken; uses crt; var c,i,s: longint; begin clrscr; write('Nhap so bat ky: '); readln(c); s:=0; for i:=1 to (c-1) do if (c mod i=0) then s:=s+i; if s=c then writeln(C,' la so hoan thien') else ... xem thêm

• 
  • ttphulhp
  • Chưa có nhóm
  • Trả lời

    913

  • Điểm

    17366

  • Cảm ơn

    515

  câu 13 đó đạt

• 
  • Datdoan03
  • Chưa có nhóm
  • Trả lời

    869

  • Điểm

    24096

  • Cảm ơn

    642

  thanks

Đăng nhập để hỏi chi tiết

• samon247
• Chưa có nhóm

• Trả lời

  320

• Điểm

  1263

• Cảm ơn

  165

• samon247

• 24/07/2020

1.

#include <iostream>using namespace std;int main() { for(int i=0;i<10;i++){ if(i<5){ cout<<"Xin chao"<<endl; } else{ cout<<"Toi la pascal"<<endl; } } //samon247 return 0;}

2.

#include <iostream>using namespace std;int main() { int S=0; for(int i=1;i<=50;i++){ S+=i; } cout<<"Tong 1 den 50 la: "<<S; //samon247 return 0;}

3.

#include <iostream>using namespace std;int main() { int S=1; for(int i=1;i<=10;i++){ S*=i; } cout<<"Tong 1 den 10 la: "<<S; //samon247 return 0;}

4.

#include <iostream>using namespace std;int main() { float S=0; for(float i=1;i<10;i++){ S+=1/i; } cout<<S; //samon247 return 0;}

5.

#include <iostream>using namespace std;int main() { float S=0; for(float i=1;i<10;i++){ if((int)i%2==1){ S+=1/i; } } cout<<S; //samon247 return 0;}

6.

#include <iostream>using namespace std;int main() { float S=0; for(float i=1;i<10;i++){ if((int)i%2==0){ S+=1/i; } } cout<<S; //samon247 return 0;}

7.

#include <iostream>using namespace std;int main() { int n,S=0; cin>>n; for(float i=1;i<n;i++){ S+=i; } cout<<S; //samon247 return 0;}

8.

#include <iostream>using namespace std;int main() { int n,S=0; cin>>n; for(float i=1;i<n;i++){ if((int)i%2==0){ S+=i; } } cout<<S; //samon247 return 0;}

9.

#include <iostream>using namespace std;int main() { int s=1,n; cin>>n; for(int i=1;i<=n;i++){ s*=i; } cout<<s; //samon247 return 0;}

10.

#include <iostream>using namespace std;int main() { int s=0,m,n; cin>>m>>n; for(;m<=n;m++){ s+=m; } cout<<s; //samon247 return 0;}

11.

#include <iostream>using namespace std;int main() { int s=0,n; cin>>n; for(int i=1;i<=n;i++){ s+=i*i; } cout<<s; //samon247 return 0;}

12.

#include <iostream>using namespace std;int main() { int B,n; cin>>B>>n; for(int i=1;i<=n;i++){ if(i%B==0){ cout<<i<<" "; } } //samon247 return 0;}

13.

#include <iostream>using namespace std;int main() { int c,c1=0; cin>>c; for(int i=1;i<c;i++){ if(c%i==0){ c1+=i; } } if(c1==c){ cout<<"YES"; return 0; } cout<<"NO"; //samon247 return 0;}

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar3starstarstarstarstar1 voteGửiHủy

• Cảm ơn
• Báo vi phạm

Đăng nhập để hỏi chi tiếtXEM LỜI GIẢI SGK, SBT LỚP 8 - TẠI ĐÂY

Bạn muốn hỏi điều gì?

Đặt câu hỏi

Tham Gia Group Dành Cho Lớp 8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

Bảng tin

Bạn muốn hỏi điều gì?

Đặt câu hỏi

Lý do báo cáo vi phạm?

Gửi yêu cầu Hủy

Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát

• 
• 
• 

Tải ứng dụng

• Hướng dẫn sử dụng
• Điều khoản sử dụng
• Nội quy hoidap247
• Góp ý
• Tin tức

• Inbox: m.me/hoidap247online
• Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.

Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.