OLM ưu đãi đặc biệt gói SVIP 18 THÁNG dành cho nhà trường, đăng kí ngay!

Tham gia chương tình "Học kỳ rực rỡ" cùng OLM cơ hội nhận quà lên tới 2.000.000Đ

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.

Tất cả Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Âm nhạc Mỹ thuật Tiếng anh thí điểm Lịch sử và Địa lý Thể dục Khoa học Tự nhiên và xã hội Đạo đức Thủ công Quốc phòng an ninh Tiếng việt Khoa học tự nhiên
Mua vip
NC
Nhân CFM
11 tháng 5 2020
Program HelloWorld(output); Var a,b :array[1..100] of integer; i,n,s,d:integer; begin write(‘Nhap n= ’); readln(n); For i:=1 to n do Begin Write(‘a[‘,i,’]=’); readln(a[i]); End; s:=0; for i:=1 to n do if (a[i]mod 2=1) then s:=s+a[i]; write(‘tong so le ’,s); d:=0; for i:=1 to n do if (a[i]mod 3=0) then d:=d+1; write(‘so luong so chia het cho 3: ’,d); For i:=1 to n do b[i]:=2*a[i]; For i:=1 to n do write(b[i]:4); readln end. code này sai...
Đọc tiếp

Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n= ’); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]=’); readln(a[i]);
End;
s:=0;
for i:=1 to n do
if (a[i]mod 2=1) then s:=s+a[i];
write(‘tong so le ’,s);


d:=0;
for i:=1 to n do
if (a[i]mod 3=0) then d:=d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:=1 to n do b[i]:=2*a[i];
For i:=1 to n do write(b[i]:4);
readln
end.

code này sai chỗ nào vậy mn ?, giúp em sửa với ạ.
#Hỏi cộng đồng OLM #Tin học lớp 11
1
ML
Minh Lệ
11 tháng 5 2020

Mình kiểm tra thấy nó có sai về lỗi gì đâu. Ý bạn là sai về cách chạy đúng không, bạn gửi đề để mình xem nhé

Đúng(0)
NT
Nông trang
28 tháng 4 2021

Trong ngôn ngữ lập trình pascal đoạn chương trình sau thực hiện công việc gì S1 := 'hong'; S2 := 'hoa'; i :=pos(S2, S); While i 0 do Begin Delete(S,i,2); Insert(S1,S,i); i := pos (S2,S); End;
#Hỏi cộng đồng OLM #Tin học lớp 11
1
NL
Nguyễn Lê Phước Thịnh
28 tháng 4 2021

Sửa đề: S:='hong';

Đoạn chương trình thực hiện chương trình chèn xâu s1 vào xâu s

Đúng(1)
NV
Nguyễn Văn Thắng
9 tháng 5 2021

Cho khai báo mảng Var A: Array[1..10000] of integer; n, i: word; Begin Readln(n); For i:=1 to n do read(A[i]); End. Chương trình trên thực hiện công việc nào
#Hỏi cộng đồng OLM #Tin học lớp 11
1
NL
Nguyễn Lê Phước Thịnh
9 tháng 5 2021

thực hiện công việc nhập n số từ bàn phím

Đúng(0)
LV
Lan Võ
25 tháng 4 2023

Cho biết giá trị của d sau khi thực hiện đoạn chương trình sau: S:='Hoang Thi Thu Hong' ; d:=0; For i:=1 to length(S) do Begin S[i]:= Upcase(s[i]); If s[i]= 'H' then d:= d+1; End;
#Hỏi cộng đồng OLM #Tin học lớp 11
1
ML
Minh Lệ
25 tháng 4 2023

Dịch chương trình: Đây là đoạn chương trình in hoa tất cả các kí tự trong xâu và đếm số lượng chữ cái H trong xâu.

S = 'Hoang Thi Thu Hong' sau khi in hoa S = 'HOANG THI THU HONG'

-> Trong xâu S có 4 kí tự 'H' => d = 4

Đúng(2)
HP
hoài phương
21 tháng 12 2021

Cho biết kết quả sau khi thực hiện đoạn chương trình sau:
S:=0;
FOR i:=1 to 15 DO
 IF a[i] mod 2 = 0 THEN 
        S:=S+a[i];
writeln(‘S = ’,S);
#Hỏi cộng đồng OLM #Tin học lớp 11
1
L
Luminos
21 tháng 12 2021

S=6

Đúng(1)
AL
Anh Lê duy
29 tháng 11 2021
Chương trình sau giải quyết vấn đề gì?  Var   a:array[1..4] of integer;  Begin        For i:=1 to 4 do        Begin           Write('nhap cac phan tu A[',i,']:');            readln (a[i]);        End;        For i:=1 to 3 do        For j:= I+1 to 4 do             If a[i]> a[j] then               Begin                   tg:=a[i];          ...
Đọc tiếp

Chương trình sau giải quyết vấn đề gì?

  Var   a:array[1..4] of integer;

  Begin

        For i:=1 to 4 do

        Begin

           Write('nhap cac phan tu A[',i,']:');

            readln (a[i]);

        End;

        For i:=1 to 3 do

        For j:= I+1 to 4 do

             If a[i]> a[j] then

               Begin

                   tg:=a[i];

                   a[i]:=a[j];

                   a[j]:=tg;

               end;

         For I:=1 to  4 do

         Write(a[i]);

    End.

Select one:

a. sắp xếp các phần tử của mảng theo trật tự tăng dần

b. Tìm Max

c. sắp xếp các phần tử của mảng theo trật tự giảm dần

d. Chương trình có lỗi
#Hỏi cộng đồng OLM #Tin học lớp 11
0
NC
Nguyễn Cảnh Hùng
8 tháng 4 2017
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)S := 0; For i := 1 to N do S := S+a[i]; A. In ra màn hình của mảng A B. Đếm các phần tử của mảng A C. Tính tổng các phần tử của mảng A D. Không thực hiện việc nào trong 3 việc trên...
Đọc tiếp

Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)

S := 0;

For i := 1 to N do S := S+a[i];

A. In ra màn hình của mảng A

B. Đếm các phần tử của mảng A

C. Tính tổng các phần tử của mảng A

D. Không thực hiện việc nào trong 3 việc trên
#Hỏi cộng đồng OLM #Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
8 tháng 4 2017

Đáp án đúng : C

Đúng(0)
PT
Phạm Thị Lan Anh
5 tháng 6 2020
Cho chương trình sau Program BT1; Var s: interger Function Fact(n: interger): interger Var s: interger Begin If n=0 Then Fact:=1 else Begin S:=1 For i:=1 To n Do s:=s*i; Fact:=s; End; End; Begin For i;=0 To 10 Do Writenl(i,' ',Fact (i)); End. Hãy cho biết chương trình trên 1. Tên chương chình con là gì 2. Nó là hàm hay thủ tục 3. Tham số hình thức tên là gì 4. Tham số thực sự tên là gì 5. Biến cục bộ tên là gì 6....
Đọc tiếp

Cho chương trình sau

Program BT1;

Var s: interger

Function Fact(n: interger): interger

Var s: interger

Begin

If n=0 Then Fact:=1 else

Begin

S:=1

For i:=1 To n Do s:=s*i;

Fact:=s;

End;

End;

Begin

For i;=0 To 10 Do

Writenl(i,' ',Fact (i));

End.

Hãy cho biết chương trình trên

1. Tên chương chình con là gì

2. Nó là hàm hay thủ tục

3. Tham số hình thức tên là gì

4. Tham số thực sự tên là gì

5. Biến cục bộ tên là gì

6. Biến toàn cục tên là gì

7. Chương trình còn này được thực hiện mấy lần

8. Viết lại dòng lệnh nó được thực hiện

9. Kiểu giá trị mà hàm này trả về là kiểu gì

10. Hãy viết lại dòng lệnh để hàm này trẻ về giá trị có kiểu real

#Hỏi cộng đồng OLM #Tin học lớp 11
0
LN
Loi Nguyen
4 tháng 4 2021

Ai sửa giúp mình với type Myaray=array [0..9] of Integer; var i:Myaray;

s:String;

a,b:Integer;

begin

Write('nhap xau: ');

readln(s);

a:=0;

for b:=1 to length(s) do

while pos(i,s)<>0 do begin a:=a+1;

Write(a);

end;

while pos(i,s)=0 do write(a);

readln

end.
#Hỏi cộng đồng OLM #Tin học lớp 11
1
NA
nguyễn an phát
17 tháng 5 2021

sữa i bằng b đi bạn ơi

Đúng(0)
Bảng xếp hạng
Tất cả Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Âm nhạc Mỹ thuật Tiếng anh thí điểm Lịch sử và Địa lý Thể dục Khoa học Tự nhiên và xã hội Đạo đức Thủ công Quốc phòng an ninh Tiếng việt Khoa học tự nhiên
  • Tuần
  • Tháng
  • Năm
Các khóa học có thể bạn quan tâm
Tổng thanh toán: 0đ (Tiết kiệm: 0đ)
Tới giỏ hàng
Yêu cầu VIP