1. viết chương trình nhập vào 1 số a. nếu a không phải là dạng số dương thì nhập lại, đến khi nào là số dương thì dừng. 2. Viết chương trình nhập vào 1 số a.Nếu a không phải là số chẵn thì nhập lại, đến khi nào là số chẵn thì dừng. 3. Viết chương trình tính tổng số nguyên 1-n, n

dfghjk12

2 năm trước

1. viết chương trình nhập vào 1 số a. nếu a không phải là dạng số dương thì nhập lại, đến khi nào là số dương thì dừng. 2. Viết chương trình nhập vào 1 số a.Nếu a không phải là số chẵn thì nhập lại, đến khi nào là số chẵn thì dừng. 3. Viết chương trình tính tổng số nguyên 1-n, n là số nguyên nhập từ bàn phím. Sử dụng vòng lặp while...do 4. Tính S= 1+1/2=1/3+1/4... Dừng khi 2-S<0.01

Loga Sinh Học lớp 12

0 lượt thích 18 xem

1 trả lời

Thích Trả lời

soidee2212

Bài 1:

program soduong;

uses crt;

var a:integer;

begin

clrscr;

repeat

write('Nhap a: '); readln(a);

writeln('Khong hop le(phai la so duong), nhap so khac.');

until a>0;

write(a,' la so duong');

readln;

end.

Bài 2:

program soduong;

uses crt;

var a:integer;

begin

clrscr;

repeat

write('Nhap a: '); readln(a);

writeln('Khong hop le(phai la so chan), nhap so khac.');

until a mod 2=0;

write(a,' la so chan');

readln;

end.

Bài 3:

program tinhtong;

uses crt;

var n,i,s:integer;

begin

clrscr;

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

i:=1; S:=0;

while i<=n do

begin

S:=S+i;

i:=i+1;

end;

write('Tong cac so tu 1 den ',n,' la: ',s);

readln;

end.

Bài 4:

program tinhS;

uses crt;

var i:integer;

s:real;

begin

clrscr;

S:=0; i:=1;

while 2-S>=0.01 do

begin

S:=S+1/i;

i:=i+1;

end;

write('S= 's:0:3);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

cayhang15cm

Câu 1:

uses crt;

var a: integer;

Begin

write('nhap a: '); readln(a);

while a<=0 do

begin

write('nhap lai a: '); readln(a);

end;

write(a,' la so duong');

readln

End.

Câu 2:

uses crt;

var a: integer;

Begin

write('nhap a: '); readln(a);

while a mod 2<>0 do

begin

write('nhap lai a: '); readln(a);

end;

write(a,' la so chan');

readln

End.

Câu 3:

uses crt;

var n,i: integer;

T: longint;

Begin

clrscr;

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

T:=0; i:=1;

while i<=n do

begin

T:=T+i;

i:=i+1;

end;

write('Tong cac so tu 1 den ',n,' la: ',T);

readln

end.

Câu 4:

uses crt;

var i:integer;

S:real;

Begin

i:=1;

while 2-S>=0.01 do

begin

S:=S+1/i;

i:=i+1;

end;

write('S = ',S:2:3);

readln

End.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Mn có bk phần mềm nào vẽ trên máy tính dễ vs đẹp ko ak Chính : vẽ đậu mầm đang đói ~

một máy biến thế có số vòng dây ở cuộn sợ cấp là 500 vòng, số vòng ở cuộn thứ cấp là 2500 vòng a. máy trên là tăng hay hạ thế? vì sao? b. tỉ số hđt ở hai cuộn dây là bao nhiêu? giúp em với ạ. huhu

Thầy giáo mình dạy thế này mà mình tính ra hiệu điện thế tại nơi tiêu thụ bằng 0. Có sai ở đâu không mọi người?

Giúp mik đi đag cần gấp nha mí bạn Love team!

a.(b-c)+c.(a-b)=b.(a-c) Đề bài là :biến đổi vế trái thành vế phải

giải pt sau: $\left \{ {\frac{3}{x+1} + \frac{1}{y-2} = 4\atop {\frac{2}{x+1} + \frac{1}{y-2} = 3}} \right.$

Tìm GTNN của $\frac{x}{1-x}$ + $\frac{5}{x}$ với 0<x<1

1. âm 130 phần 240 và âm 7 phần 80 2. 3 phần -10 và -5 phần 21 3 7 phần 60 và 3 phần 40 và -11 phần 30 4 -4 phần 7 và 8 phần 9 và -10 phần 21 5 5 phần 2 và 7 phần 8 và 7 phần 11

Câu 1: Đổ 5ml muối vào 20ml nước, thể tích hỗn hợp nước muối là: d) Lớn hơn 25ml. c) Nhỏ hơn 25ml. b) 20ml. a) 25ml. Câu 2: Trong thí nghiệm của Brown các hạt phấn hoa chuyển động hỗn độn không ngừng vì nước chuyển động không ngừng va chạm vào chúng từ mọi phía. a) Giữa chúng có khoảng cách. d) Chúng là các thực thể sống. b) Chúng là các phân tử. Câu 3: Tại sao quả bóng bay dù được buộc chặt để lâu ngày vẫn bị xẹp? c) Vì không khí nhẹ nên có thể chui qua chỗ buộc ra ngoài. d) Vì giữa các phân tử của chất làm vỏ bóng có khoảng cách nên các phân tử không khí có thể qua đó thoát ra ngoài. b) Vì cao su là chất đàn hồi nên sau khi bị thổi căng nó tự động co lại. a) Vì khi mới thổi, không khí từ miệng vào bóng còn nóng, sau đó lạnh dần nên co lại. Câu 4: Khi các nguyên tử, phân tử cấu tạo nên vật chuyển động nhanh lên thì đai lượng nào sau đây tăng lên. a) Khối lượng của vật. b) Trọng lượng của vật. c) Nhiệt độ của vật. d) Cả khối lượng lẫn trọng lượng của vật. Câu 5: Hãy phán đoán xem, trong thí nghiệm Brown, nếu tăng nhiệt độ của nước thì các hạt phấn hoa chuyển động như thế nào? c) Chuyển động không đổi. a) Chuyển động nhanh hơn d) Không phán đoán được. b) Chuyển động chậm đi

CÁC BẠN TÌM GIÙM MIK Các lọai cây trồng, vật nuôi NHA Tên khu vực và các quốc gia Các lọai cây trồng, vật nuôi Eo đất trung Mỹ Quần đảoĂng Ti Các nước Nam Mỹ

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến