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.

Mua vip
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
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)
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
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
EK
em không thích học
21 tháng 3 2022

program bang_nhan;

uses Crt;

var i,n:Integer

 begin

 clrscr;

n:=8;

for i:=1 to 10 do

 WriteLn(n,'x',i:2,'=',n*i:3);

Readln

 end.

cho em hỏi sai chỗ nào vậy
#Tin học lớp 8
0
PT
Phạm Thạch Anh
15 tháng 3 2022

Câu 1: Hãy điền vào chỗ trống để được một chương trình đúng: 

Program tinh_tich;

Var i: integer;

s: ………….;

Begin

s:= ……..;

for i:= 1 to 10 … s:= s*1/i;

writeln ('tich ',……...);

readln;

End. 

 

 
#Tin học lớp 8
1
NL
Nguyễn Lê Phước Thịnh
15 tháng 3 2022

uses crt;

var i:integer; s:real;

begin

clrscr;

s:=1;

for i:=1 to 10 do s:=s*1/i;

writeln(s:4:2);

readln;

end.

Đúng(1)
PT
Phạm Thạch Anh
16 tháng 3 2022

cám ơn

Đúng(0)
TN
Trần Nguyễn Hoàng Nam
24 tháng 3 2022

mọi người giúp mình

Sửa lỗi chương trình sau

Program bang_cuu_chuong

Uses crt;

Var N: read;

      i: integer;

Begin

clrscr;

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

writeln;

writeln('Bang nhan ',N)

writeln;

for i:=1 to 10 do

writeln(N,' x ',i:2,' = ',N')

readln

end.
#Tin học lớp 8
3
TK
ttanjjiro kamado
24 tháng 3 2022

program  bang_cuu_chuong ;

Uses crt;

Var N , i : integer ;

Begin 

           Clrscr ; 

          write('Nhap so N=');

          readln(N);

          writeln;
          write ('Bang nhan',N) ;

          writeln;

           for i:=1 to 10 do

          writeln(N,'x',i:2,'=',N*i);

          readln ;

          End.

Đúng(0)
TK
ttanjjiro kamado
24 tháng 3 2022

đau tay

Đúng(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
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. Mảng A trong chương trình trên có số phần tử tối đa là bao nhiêu
#Tin học lớp 8
0
SG
sunion Ghast
25 tháng 3 2022
Câu 1: Sau khi thực hiện chưng trình pascal sau đây, biến S có giá trị là bao nhiêu ?    Var x : integer;BeginS:=0For i:=1 to 10 do If ( i mod 2) = 0 then S:=S+i;Readln;EndA.10 B. 20 C. 30 D. 40Câu 2: Khi thực hiện đoạn chương trình sau, kết quả trên màn hình là:So:=1;While so<10 do Begin Write (so : %);So:= So...
Đọc tiếp

Câu 1: Sau khi thực hiện chưng trình pascal sau đây, biến S có giá trị là bao nhiêu ?    Var x : integer;

Begin

S:=0

For i:=1 to 10 do 
If ( i mod 2) = 0 then S:=S+i;

Readln;

End

A.10 B. 20 C. 30 D. 40

Câu 2: Khi thực hiện đoạn chương trình sau, kết quả trên màn hình là:
So:=1;

While so<10 do Begin 

Write (so : %);

So:= So +2;

End.

 
#Tin học lớp 8
2
TM
Tô Mì
25 tháng 3 2022
Đúng(0)
MG
Me God
16 tháng 3 2023

S từ đâu ra vậy ? 

 

Đú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