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 l...

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.

Chọn lớp

Chọn mô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?

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

Các câu hỏi dưới đây có thể giống với câu hỏi trên

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. A)if mod 2=0 then B)while i

#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; ...

#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.

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

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...

#Tin học lớp 8

0

D

depgaiqua

26 tháng 2 2021

program Tinh_tong;uses crt;var i, n, s: integer;begin clrscr;writeln('Chuong trinh tinh tong S = 1 + 2 + ... + n');write('Nhap so n: ');read(n); s:=0;for i := 1 to n do s := s + i;writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);readln;readln;end.* Dựa vào vòng lặp for viết chương trình tính tổng n số tự nhiên bằng vòng lặp...

#Tin học lớp 8

2

ML

Minh Lệ

26 tháng 2 2021

Program HOC24;

var i,n,s: integer;

begin

writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');

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

s:=0; i:=1;

while i<n do

begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);

readln

end.

NL

Nguyễn Lê Phước Thịnh

26 tháng 2 2021

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

i:=0;

while i<=n do

begin

i:=i+1;

s:=s+i;

end;

writeln(s);

readln;

end.

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...

#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

VL

Vũ lê nam anh

2 tháng 5 2021

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

M

marian

28 tháng 12 2016

Tìm những lỗi sai trong chương trình sau :

program bang_nhan_4 ;

uses crt ;

var i : integer ;

begin

clrscr ;

const

for i:= 1 to 10 do writeln(4, 'x' , 'i' , '=' , 4*i) ;

readln

end.

#Tin học lớp 8

1

NL

Nhung Lý

30 tháng 12 2016

const không có ';'

M

marian

4 tháng 1 2017

thật ra chữ " const " là thừa đấy chỗ sai là : (4, 'x' , 'i' , '=' , 4*i) ; hai bên số 4 không có dấu '

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

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