mình ko hiểu đề lắm Kimthuan Do, bạn viết lại đề có dấu dc ko
Đúng 0
Bình luận (0)
Bài 9. Làm việc với dãy số
Các câu hỏi tương tự
CAU 1:
A, Nhap vao so nguyen n ; Tinh tong S= 1+2+3+...+n
B, Nhap vao mot mang gom m so nguyen . Tinh tong cac phan tu cua mang do.
GIUP MINH VOI NHA MOI NGUOI ...
Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( Tong cac phan tu le trong mang la : , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 0 then chan : tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( Nhap so phan tu cua mang : ) ; Readln ( n ) ;
For i : 1 to n do readln ( a [ i ] ) ;
For i : 1 to n do
Write ( Nhap phan thu thu...
Đọc tiếp
Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( ' Tong cac phan tu le trong mang la : ' , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 = 0 then chan : = tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( ' Nhap so phan tu cua mang : ' ) ; Readln ( n ) ;
For i : = 1 to n do readln ( a [ i ] ) ;
For i : = 1 to n do
Write ( ' Nhap phan thu thu ' i ) ;
Writeln ( ' Tong cac phan tu chan trong mang la : ' , tchan ) ;
Begin
End ;
tchan : = 0 ; tle : = 0 ;
Else tle : = tle + a [ i ] ;
Uses crt ;
Var i , n , tchan , tle : Integer ;
vct nhap vao so nguyen N va day a1,a2...aN. kiem tra xem day A co bao nhieu so nguyen duong
uses crt;
var n, i:integer;
begin
clrscr;
write(Nhap vao mot so nguyen:)
readln(n);
if n1 then writeln(n, khong la so nguyen to,)
else
begin
i:2;
while (n mod i0) do i:i+1;
if in then writeln(n, la so nguyen to)
else writeln(n, khong la so nguyen to,);
end;
readln
end.
a) Nêu công dụng của từng câu lệnh trong chương trình theo thứ tự từ 1 đến 16
b) Theo em, khi nhập vào số 9 thì chương trình sẽ xuất thông báo gì?
c) Theo em, khi nhập vào số 131 thì chương trình sẽ xuất thông bá...
Đọc tiếp
uses crt;
var n, i:integer;
begin
clrscr;
write('Nhap vao mot so nguyen:')
readln(n);
if n<=1 then writeln(n,' khong la so nguyen to,)
else
begin
i:=2;
while (n mod i<>0) do i:=i+1;
if i=n then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to,);
end;
readln
end.
a) Nêu công dụng của từng câu lệnh trong chương trình theo thứ tự từ 1 đến 16
b) Theo em, khi nhập vào số 9 thì chương trình sẽ xuất thông báo gì?
c) Theo em, khi nhập vào số 131 thì chương trình sẽ xuất thông báo gì?
1. Cho biết đoạn chương trình sau làm công việc gì?
Writeln('nhap so hoc sinh trong lop=');readln(x);
While(x<1) or (x>50) do
begin
write('nhap lai');readln(x);
end;
22 tháng 9 2018 lúc 9:23
Viết chương trình nhập n số nguyên từ bàn phím. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. In kết quả ra màn hình các số thỏa mãn điều kiện trên.
program chia_het;
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write(Nhap so phan tu co trong day:);readln(n);
for i:1 to n do begin
writeln(Nhap phan tu thu ,i, cua day:);readln(a[i]);
end;
for i:1 to n do begin
if (a[i] mod 20) and (a[i] mod 30)
then writeln(Phan tu chia het cho 2 va 3 la:,a[i])
end;
read...
Đọc tiếp
Viết chương trình nhập n số nguyên từ bàn phím. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. In kết quả ra màn hình các số thỏa mãn điều kiện trên.
program chia_het;
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap so phan tu co trong day:');readln(n);
for i:=1 to n do begin
writeln('Nhap phan tu thu ',i,' cua day:');readln(a[i]);
end;
for i:=1 to n do begin
if (a[i] mod 2=0) and (a[i] mod 3=0)
then writeln('Phan tu chia het cho 2 va 3 la:',a[i])
end;
readln
end.
Chương trình trên đúng k ạ
program bai_giai;
uses crt;
var A:array[1..10] of integer;
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do;
begin
write('nhap so thu ',i,':');
readln(A [i]);
if a[i]mod 3=0 then;
begin
s:=s+A[i];
end.
cho em hỏi chương trình trên đúng ko ạ?
Viet chuong trinh nhap vao 1 mảng gom n phần tử số thực
a) in mảg vua nhập
b) tìm giá trị nhỏ nhất của mảng
c) sap xep mảg tăng dần
viet chuong trinh nhap vao tu ban phim diem toan cua 1 mang gom 30Hs.Xet va in ra man hinh nhung HS co diem toan lon hon 6,5