K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

6 tháng 1 2017

b1: Nhập n.

b2:Nếu n chia hết cho 1 và n chia hết cho n thì n là số nguyên tố, ngược lại n không phải là số nguyên tố.

b3: Thông báo kết quả và kết thúc thuật toán.

8 tháng 12 2021

n chia hết cho 1 và n chia hết cho n chưa chắc n là số ngtố bạn

2 tháng 12 2016

pascal hả bn??

4 tháng 12 2016

mình thấy ở trang 71 SGK có bài tương tự

program Tinh_trung_binh_cong;

uses crt;

var n, dem : integer;

a, TB : real;

begin clrscr;

dem:= 0; TB:=0;

write('Nhap so cac so can tinh n = '); realn(n);

write dem < n do

begin dem:= dem + 1;

write('Nhap so thu ', dem,' = '); realn(a);

TB:= TB + a;

end;

TB:= TB/n;

writeln('Trung binh cua ', n, ' so la = ', TB:10:3);

writeln('Nhan Enter de thoat ...');

readln;

end.

like mạnh cho bạn

7 tháng 12 2016

xử nữ

 

7 tháng 1 2017

SONG NGƯ

undefined

 

7 tháng 12 2016

Viết chương trình kiểm tra số nguyên n có chia hết cho

3 ko?

viết chương trình kiểm tra số nguyên n là chẵn hay lẻ(âm hay dương)

viết chương trình nhập vào 3 sô nguyên

a) kiểm tra xem đó có là độ dài 3 cạnh của 1 tam giác

b)...............................(như trên) 3 canh của 1 tam giác vuông cân

c)như trên 3 cạnh của 1 tam giác cân

mn giúp với , mk cần gấp lắm

5 tháng 8 2017

Bài 9. Làm việc với dãy sốBài 9. Làm việc với dãy sốBài 9. Làm việc với dãy số

5 tháng 8 2017

không phải cách tối ưu không thì hông biết nhưng mà ra đáp án :)) là được nhỉ

8 tháng 5 2016

Trường mình thi rồi nhưng đề dễ lắm, không khó như câu này đâu vui.

program tong;

var s,integer;

begin

i:=0s:=0;

while 100 do

begin 

   S:=s+i;

   i:=i+1;

end;

writeln('Tong nho nhat lon hon 100 la: ',s);

writeln('So lan lap la: ',i);

readln

end.  

8 tháng 5 2016

Mơn nhea...vui

21 tháng 10 2016

Chưa chắc giống nhau nhưng tham khảo :

Câu 1 : Viết các phép tính sau trong pascal :

a) \(\frac{\sqrt{p\left(p-a\right)\left(p-b\right)^2}}{p-c}\)

b) \(a^2+b^2-5ab-\frac{43}{3}\)

c) \(\sqrt{2}+\frac{\sqrt{s+p+c}}{\sqrt{2}}\)

Câu 2 :

Viết chương trình tính diện tích và chu vi hình chữ nhật biết chiều dài và chiều rộng nhập từ bàn phím.

Câu 3 :

Viết chương trình tính diện tích hình tròn biết bán kính được nhập từ bàn phím.

 

7 tháng 10 2016

Mik thực hành thôi bạn

31 tháng 12 2016

program P;

var x, y, P: integer;

begin

writeln('nhap x va y = ');

readln(x,y);

P:=x*x+y*y+x*y;

writeln('gia tri bieu thuc = ',P);

readln

end.

Bạn thử chạy chương trình xem có được ko rồi nói lại cho mình nhé.

9 tháng 2 2017

Mik

ko biết

19 tháng 10 2016

Uses crt;

Var a,b : integer;

Begin

Writeln('Tong hai so a va b la= ', a + b );

Readln;

End.

21 tháng 10 2016

Cho phép viết lại :)

Uses crt;

Var a,b:integer;

Begin

clrscr;

Writeln('Nhap so a = '); Readln(a);

Writeln('Nhap so b = '); Readln(b);

Writeln('Tong hai so a va b la = ',a+b);

Readln;

end.