(Gấp) Viết chương trình sử dụng câu lệnh While-do nhập vào N số nguyên dương. Tính các căn bậc hai của các số nhỏ hơn 6. Vd: Nhap vao N so: 3 Nhap vao so thu 1: 7 Nhap vao so thu 2: 5 Nhap vao so thu 3: 4 Tich cac can bac hai cua cac so nho hon 6 la: 4.47
1 câu trả lời
uses crt;
var a : array[1..100] of integer;
i, n : integer; s: real;
begin
clrscr;
write('nhap vao n so : '); readln(n);
i := 1; s := 1;
while i <= n do
begin
write('nhap vao so thu ', i ,' : ');
readln(a[i]);
if a[i] < 6 then s := s * sqrt(a[i]);
i := i + 1;
end;
writeln('Tich cac can bac hai cua cac so nho hon 6 la: ', s:2:2);
readln
end.
Câu hỏi trong lớp
Xem thêm
