Viết Chương Trình Pascal Nhập N Từ Bàn Phím. Đếm ...

Có thể bạn quan tâm

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

logo

Lưu vào

+
Danh mục mới

Lưu

asmobile1103
Chưa có nhóm

Trả lời
0
Điểm
10
Cảm ơn
0

Tin Học
Lớp 9
50 điểm
asmobile1103 - 22:18:20 27/12/2020

viết chương trình pascal nhập N từ bàn phím. Đếm xem có bao nhiêu số chính phương từ 1 tới n (sử dụng câu lệnh lặp và câu lệnh điều kiện) đơn giản thôi nha

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

minhgiang68049
Chưa có nhóm

Trả lời
34
Điểm
870
Cảm ơn
41

minhgiang68049

Câu trả lời hay nhất!
27/12/2020

uses crt;

var n,i,dem:longint;

begin

clrscr;

write('Nhap so nguyen duong n: ');readln(n);

for i:=1 to n do if sqrt(i)=trunc(sqrt(i)) then dem:=dem+1;

writeln('Co ',dem,' so chinh phuong');

readln

end.

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

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar5 voteGửiHủy

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

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

Xem thêm:

>> Tuyển tập 100+ đề bài đọc hiểu Ngữ Văn lớp 9

Yonnii
Only Once (O2)

Trả lời
4770
Điểm
86424
Cảm ơn
7996

Yonnii

29/12/2020

program btsydn;

uses crt;

var i, n, d, a: integer;

begin

clrscr;

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

d:=0;

for i:=1 to n do if n>0 then

begin

a:=trunc(sqrt(i));

if sqr(a)=i then d:=d+1;

end;

writeln('Co ', d, ' so chinh phuong tu 1 -> n ');

readln

end.

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

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar2 voteGửiHủy