OLM cung cấp gói bải giảng điện tử PPT cho giáo viên đầu năm học

Thi thử và xem hướng dẫn giải chi tiết đề tham khảo 12 môn thi Tốt nghiệp THPT 2025

Tập huấn miễn phí ra đề kiểm tra và chấm phiếu trắc nghiệm dành cho giáo viên khối THCS

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
BP
Bình Phan
5 tháng 5 2021

Uses crt; Var i,t: integer; Begin Clrscr; t:=0; i:=0; t:=t+i; i:=i+1; Begin Readln; Write('tong các so chan nho hon 50 la',t); End; End. While i

#Tin học lớp 8
2
NL
Nguyễn Lê Phước Thịnh
5 tháng 5 2021

Đề bài yêu cầu gì vậy bạn?

Đúng(0)
BP
Bình Phan
5 tháng 5 2021

Đề yêu cầu sắp xếp lại .a) if mod a=0 then.b) while i<50 do

 

 

 

Đúng(0)
GC
Gãy Cánh GST
8 tháng 5 2023
Tìm và sửa lỗi trong chương trình pascal sau:               Uses crt;               Var i, n, t : integer;               Begin        clrscr;        write('Nhap so n = '); readln(n);        i := l; t := 0;        while i <= n do begin       t := t + i;      i := i + l;      write('Tong = ', t);             Readln;           ...
Đọc tiếp

Tìm và sửa lỗi trong chương trình pascal sau:

               Uses crt;

               Var i, n, t : integer;

               Begin

        clrscr;

        write('Nhap so n = '); readln(n);

        i := l; t := 0;

        while i <= n do 

begin 

      t := t + i;

      i := i + l;

      write('Tong = ', t);

             Readln;

             end.
#Tin học lớp 8
1
ML
Minh Lệ
8 tháng 5 2023

         Uses crt;

               Var i, n, t : integer;

               Begin

        clrscr;

        write('Nhap so n = '); readln(n);

        i := l; t := 0;   | sửa: i:=1; t:=0;

        while i <= n do 

begin 

      t := t + i;

      i := i + l;       | Sửa: i:=i+1;

-> Thiếu. Thêm: End;

      write('Tong = ', t);

             Readln;

             end.

Đúng(2)
BJ
Bùi Jessica
5 tháng 5 2020
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...
Đọ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 ;
#Tin học lớp 8
0
NT
Nguyễn Thái Phương Thảo
22 tháng 4 2023

Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Biến n,i trong chương trình trên dùng dể làm gì?
#Tin học lớp 8
0
PN
Phú Nhuận Nguyễn
18 tháng 3 2021

uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
#Tin học lớp 8
3
PN
Phú Nhuận Nguyễn
18 tháng 3 2021

Giúp mình vs

Đúng(0)
NH
Nguyễn Hoàng Long
18 tháng 3 2021

a) tính tổng các số chẵn từ 1 đến 50
b)
  (3): lệnh viết kq của ct trên.
  (4):lệnh in ra màn hình kq của bài toán.
  (5):lệnh kết thúc ct.

Đúng(0)
BC
Ba chú heo con
20 tháng 5 2020

Program tong_so_le;

Uses crt;

Var S,N,I:Integer;

Xữa chương trình sau( nếu sai)

Begin

Clrscr;

Write('Nhap N ');Readln(N);

S:=0;

For I:=1 to N do If (I mod 2<>0) then

S:=S+I;

Writeln('Tong cac so le la ',S); Readln;

End.

Giup mik nha các bn

Thanks
#Tin học lớp 8
0
NT
Nguyễn Trần Tuấn Anh
24 tháng 4 2018
Cho chương trình sau ( bằng Turbo Pascal): Begin {1} Write('Tong cac so chan lon hon 50 la:',t);{2} While i<50 do{3} Begin{4} If i mod 2=0 then{5} t:=t+i;{6} i:=i+1;{7} end;{8} Uses crt;{9} Var i, t:integer;{10} i:=1; t:=0;{11} Clrscr;{12} Readln;{13} End.{14} â) Chương trình trên bị sai về vị trí các dòng \(\left\{2\right\}\), \(\left\{9\right\}\), \(\left\{10\right\}\), \(\left\{11\right\}\), \(\left\{12\right\}\), hãy sắp xếp lại các vị trí của các dòng này...
Đọc tiếp

Cho chương trình sau ( bằng Turbo Pascal):

Begin {1}

Write('Tong cac so chan lon hon 50 la:',t);{2}

While i<50 do{3}

Begin{4}

If i mod 2=0 then{5}

t:=t+i;{6}

i:=i+1;{7}

end;{8}

Uses crt;{9}

Var i, t:integer;{10}

i:=1; t:=0;{11}

Clrscr;{12}

Readln;{13}

End.{14}

â) Chương trình trên bị sai về vị trí các dòng \(\left\{2\right\}\), \(\left\{9\right\}\), \(\left\{10\right\}\), \(\left\{11\right\}\), \(\left\{12\right\}\), hãy sắp xếp lại các vị trí của các dòng này để được chương trình đúng.

b) Hãy cho biết công dụng của chương trình trên
#Tin học lớp 8
3
VL
Vũ lê nam anh
2 tháng 5 2021

a,Thứ tự sắp xếp đúng là 9,10,1,12,11,3,4,5,6,7,8,2,13,14

b,Công dụng để tính tổng các số chẵn lớn hơn 50

Đúng(0)
VL
Vũ lê nam anh
2 tháng 5 2021

nhỏ nha bạn nhầm:<<

 

Đúng(0)
PN
Phú Nhuận Nguyễn
18 tháng 3 2021

uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
#Tin học lớp 8
1
NL
Nguyễn Lê Phước Thịnh
18 tháng 3 2021

a) Tính tổng các số chẵn từ 1 đến 50

b) (3): Cộng các số chẵn trong khoảng từ 1 đến 50

(4): Xuất tổng

(5): Lệnh chờ đợi chương trình xử lý và chạy

Đúng(0)
HN
Hải Nguyễn
7 tháng 1 2022

Program so_ sanh uses crt var A:B= integer; Begin clrscr; writeln ('Nhap so A:'); readln (B); if A>B then ; writeln (A,'lon hon,'B) else writeln (B,'lon hon ,'A); readln End

#Tin học lớp 8
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