Đoạn chương trình thực hiện công việc nếu số học sinh trong lớp bé hơn 1 hoặc lớn hơn 50 thì nhập lại số học sinh. Số học sinh thõa mãn khi nằm trong khoảng 1 đến 50 học sinh trong một lớ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 ;
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 ạ
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ì?
Cho vis duj sau trong Pascal:
Uses crt ;
var i: Interger
Begin
clrscr ;
i:=1
while : i < 14 do begin Writeln('0');
i:=i+1;
End ;
Readln;
End.
-Khi chạy chương trình ví dụ bên sẽ in ra bao nhiêu số 0?
A.12
B.13
C.14
D.15
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 ạ?
1.
a, Cho đoạn chương trình sau:
x:=0;
For j:=1 To 6 Do x:=x+j;
Hãy chuyển sang lệnh WHILE...DO viết thành chương trình hoàn chỉnh và cho biết giá trị x bằng bao nhiêu?
b. Cho đoạn chương trình sau:
x:=0; j:=0;
While j<= 6 Do begin x:=x+j;j:=j + 1; end;
Hãy chuyển sang lệnh FOR...TO...DO, viết thành chương trình hoàn chỉnh và cho biết giá trị x là bao nhiêu?
1.Các lệnh sau không hợp lệ, em hãy viết lại hoàn chỉnh để được câu lệnh đúng?
a. If x>5; then a:=b;
b. For x=1 To n Do writeln (x);
c. x:=5 While x:=10 do begin x:= x + 10; end;
d. For j=:1 To n Do Writeln(j;4);
Làm giúp mình bài này với ạ! Mình đag cần gấp!!
Cho đoạn chương trình sau, hãy dùng iến mảng để khai báo biến cho chương trình:
Var a, Thunhap_TB: real; i:integer;
Begin
Thunhap_TB := 0;
for i:=1 to 50 do
begin
write('Thu nhap cua gia dinh thu ', i);
readln(a);
Thunhap_TB + a
end;
Thunhap_TB := Thunhap_TB/50;
for i := 1 to 50 do begin
write('Thu nhap cua gia dinh thu ',i); readln(a);
writeln('Do lech so voi thu nhap TB la: ', a - Thunhap_TB)
end;
End.
(Bài này là trong sgk tin 8/ tr71 nha mn nhưng mà cô giáo giao là thay vào biến kiểu mảng nhưng mình ko bt, bạn nào biết thì giải giúp mình nha, còn 2 ngày nữa là mình nộp cô r. Cảm ơn các bạn nhìu ạ <3 :333).
nhap so nguyen n. tinh nhap x tinh tong cac so la uoc x la 1 den n
