Câu 1:các câu lệnh sau pascal có đúng không nếu không hãy sửa lại cho đúng: a, for i:=1 to 10 do writeln ('A') b, var X; array [5...10] of char; c, X:=10; while X=10 do X:=X+5 d, for i=1.5 to 10.3 do writeln ('A'); Câu 2: viết chương trình tính tổng dãy n số nguyên

pokemonhuyhuy0633

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 31 xem

1 trả lời

Thích Trả lời

Thaogeminii

câu 1:

a) thiếu dấu ; ở cuối

sửa: for i:=1 to 10 do writeln ('A');

b) sau X ko phải có; mà có : từ 5.. 10 có 2 dấu chấm dư 1 dấu

sửa: var X: array [5..10] of char;

b) thiếu dấu ; ở cuối câu lệnh

sửa: X:=10; while X=10 do X:=X+5;

d) giá trị đầu và gia trị cuối của câu lệnh phải là só nguyên

sửa: for i:=1 to 10 do writeln('A');

câu 2: thiếu đề á bạn ơi. mình giải theo số nguyên được nhập từ bàn phím nhe

program ct;

uses crt;

var i,n,s:integer;

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

s:=0;

for i:=1 to n do s:=s+A[i];

writeln('tong la:',s);

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

lehoaihuonghh1

a) for i:=1 to 10 do writeln ('A'); (Thêm ; sau lệnh writeln)

b) var X: array [5..10] of char; (Sửa dấu ; thành : và 5..10 chỉ 2 dấu . thôi nhé)

C) X:=10; while X=10 do X:=X+5; ( Thêm ; sau 5)

d)for i:=1.5 to 10.3 do writeln ('A'); (thêm : sau i)

Câu2: viết chương trình tính tổng dãy n số nguyên đầu tiên

uses crt;

var i,n,s: integer;

begin

clrscr;

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

for i:=1 to n do

s:=s+i;

writeln('Tong la:',s);

readln;

end.

viết chương trình tính tổng dãy n số nguyên nhap tu ban phim

uese crt;

var a:array[1..100] of integer

i,n,s: integer

begin

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

for i:=1 to n do begin

writeln('Nhap so nguyen thu',i,':'); readln(a[i]);

end;

for i:= 1to n do

s:=s+a[i];

writeln('tong la:',s);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Làm cho mn 2 câu vs mn cần gấp!!!!!!!!!!! (Mình phải nộp)

Giúp mình câu c vs hứa sẽ vote 5*

1. Em hãy mô tả 1 hiện tượng nở vì nhiệt của chất rắn, chất lỏng, chất khí. 2. Em hãy cho các ví dụ về các vật nở vì nhiệt, nếu bị ngăn cản thì gây ra 1 lực rất lớn. 3. Khi làm lạnh 1 chất, ta theo dõi nhiệt độ theo thời gian và lập bảng sau: Thời gian ( phút ) 0 10 20 30 40 50 60 Nhiệt độ (°C) 20 10 0 0 0 0 -5 a. Chất này đông đặc ở bao nhiêu độ? Đó là chất gì?Lúc này chất này tồn tại ở thể gì? b. Quá trình làm lạnh đến nhiệt độ đông đặc diễn ra bao lâu c.Quá trình đông đặc diễn ra bao lâu. giúp mk vs mn thank you mn<3

2x/2x-1+x/2x+1=1+4/(2x-1)(2x+1)

Chữ mình hơi xấu thong cảm nha

13/37 . 5/12 - 7/37 . 13/6+ -1/37 . 13/4 giải rõ giúp e vs e sắp nộp r ạ

13/37 . 5/12 - 7/37 . 13/6|+ -1/37 . 13/4 ( giải rõ dùm e vs ạ, e sắp nộp r)

Giải giúp mình với Mình cần gấp

viết chương trình tính tổng lập phương của N số tự nhiên đầu tiên N nhập từ bàn phím

Giúp e phần tự luận với ạ (giúp đc cầu nào thì giúp ạ) e cảm ơn nhiều.

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến