ngày THI ĐẤU OLM tối nay, ngày 28/04/2023 để so tài với học sinh toàn quốc!!!

Ôn tập kiểm tra học kì 2 hiệu quả, đạt thành tích cao!

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
VH
Võ Hoàng Ngọc
14 tháng 6 2020
Hãy sắp xếp lại đoạn chương trình sau cho đúng: var S, n : integer; S:=0; n:=1; while S<=100 do n:=n+1; S:=S+n; end; writeln('So n nho nhat de tong > 100 la ',n); readln end. Begin begin writeln('Tong dau tien > 100 la ',S);
#Tin học lớp 8
1
NL
Nguyễn Lê Phước Thịnh
14 tháng 6 2020

var s,n:integer;

begin

s:=0;

n:=1;

while s<=100 do

begin

s:=s+n;

n:=n+1;

end;

writeln('So n nho nhat de tong>100 la: ',n);

writeln('Tong dau tien >100 la: ',s);

readln;

end.

Đúng(0)
NB
NHÓC BOSS GAMING
16 tháng 3 2023
Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End....
Đọc tiếp

Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.

#Tin học lớp 8
1
MG
Me God
16 tháng 3 2023

Program Tong__nghich__dao;

Var

n,i:real;

S:Integer;

Begin

Write('Nhap n=');Readln(n);

S:=0;

For i:=1 to n do S:=S+1/i;

Write('Tong can tim la: ', S:6:2);

Readln;

End.

Đúng(0)
MG
Me God
16 tháng 3 2023

:v

Đúng(0)
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
TA
Thaotran Accmoicua
15 tháng 12 2020
Cho đoạn chương trình, tìm lỗi sai sửa lại cho đúng: 1) program : bai1; var x,y:= interger; x=7; n=2.68; begin writeln(nhap so x); realn(x); writeln(nhap so y); realn(y); if x mod 2 = 0 then y=y x ; else y:=y n; write (‘ket qua phep tinh la’ , y); r...
#Tin học lớp 8
2
H
hacker
16 tháng 12 2020

program bai1;

uses crt;

var x,y,n:integer;

begin

clrscr;

x:=7;

n:=2.68;

write('nhap so x:'); readln(x);

write('nhap so y:');readln(y);

if x mod 2 =0 then y:=y*x

else y:=y*n;

write('ket qua phep tinh la:', y);

readln

end.

Đúng(1)
H
hacker
16 tháng 12 2020

program bai1;

uses crt;

var x,y,n:integer;

begin

clrscr;

x:=7;

n:=2.68;

write('nhap so x:'); readln(x);

write('nhap so y:');readln(y);

if x mod 2 =0 then y:=y*x

else y:=y*n;

write('ket qua phep tinh la:', y);

readln

end.

Đúng(1)
TD
Thuyết Dương
22 tháng 9 2018
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...
Đọ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 ạ
#Tin học lớp 8
3
CT
crazy Trongthanh
20 tháng 10 2018

chắc có hoặc ko?

Đúng(0)
CT
crazy Trongthanh
20 tháng 10 2018

ha

Đúng(0)
I
𝔑𝔦𝔫𝔥 𝔗ị𝔠𝔥-𝒦𝐹𝒞
28 tháng 12 2020
Câu hỏi: Em hãy tìm và sửa lỗi chương trình sau:Program So sanh;Uses crt;Var m, n= integer;Begin     if m > n then writeln(m lon hon n);     else if m < n writeln(m nho hon n);     else writeln('m bang n');     readlnEnd.P/S: Bạn nào biết thì trả lời giúp mình với, đang cần gắp lắm...
Đọc tiếp

Câu hỏi: Em hãy tìm và sửa lỗi chương trình sau:

Program So sanh;

Uses crt;

Var m, n= integer;

Begin

     if m > n then writeln(m lon hon n);

     else if m < n writeln(m nho hon n);

     else writeln('m bang n');

     readln

End.

P/S: Bạn nào biết thì trả lời giúp mình với, đang cần gắp lắm ạ!

 
#Tin học lớp 8
1
UB
Ú Bé Heo (ARMY BLINK)
28 tháng 12 2020

Program So sanh;

Uses crt;

Var m, n= integer;

Begin

     Clrscr;

     Writeln('Hay nhap so m va n'); 

     if m > n then writeln(m lon hon n);

     if m < n then writeln(m nho hon n);

     else writeln('m bang n');

     readln

End.

Đúng(3)
NC
Nguyễn Cảnh Hùng
2 tháng 10 2017

Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

Program Soam Soduong;

uses crt

var A, B: integer;

Begin

clrscr;

writeln(Nhap so A: );

readln(A);

if A > 0 then writeln(A,’ la so duong ‘);

else writeln(A,‘ la so am ’);

readln;

End.
#Tin học lớp 8
1
DN
Đỗ Ngọc Trinh
2 tháng 10 2017

Đúng(2)
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
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)
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