Những câu hỏi liên quan
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
26 tháng 9 2018 lúc 15:44

Đáp án đúng : C

Bình luận (0)
Abcxyz
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 20:05

var s:string;

f1:text;

a:byte;

begin

assign(f1,'c:\ghixau1.txt'); rewrite(f1);

readln(s);

writeln(f1,s);

close(f1);

End.

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
3 tháng 3 2017 lúc 17:30

Đáp án đúng : A

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
31 tháng 5 2019 lúc 15:04

Đáp án C

Bình luận (0)
Nguyễn Hữu Hoàng Hải Anh
Xem chi tiết
Hoan Lý
Xem chi tiết
Kiều Vũ Linh
10 tháng 5 2023 lúc 4:33

Câu 1:

var i,n:integer;

s:longint;

begin

Write('n = ');readln(n)

for i:=1 to n do

s:=s+2*i+1;

write('tong la: ',s);

readln

end.

Bình luận (0)
Kiều Vũ Linh
10 tháng 5 2023 lúc 4:36

Câu 2

Bài 5:

Var b:array:[1..1000] of integer;

i,n,max:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(b[i]);

End;

Write('Cac phan tu am la: ');

For i:=1 to n dko

if b[i]<0 then write(b[i]:8);

writeln;

max:=b[1];

For i:=2 to n do

If b[i] > max then max:=b[i];

write('So lon nhat la ',max);

Readln

End.

Bình luận (0)
Huy Đại Ca
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 20:19

uses crt;

var s,n:integer;

begin

clrscr;

s:=0;

n:=0;

while s<=50 do 

begin

n:=n+1;

s:=s+n;

end;

writeln(n);

writeln(s);

readln;

end.

Bình luận (0)
Hà Phan Thanh
Xem chi tiết
Nguyên Anh Phạm
Xem chi tiết
😈tử thần😈
23 tháng 4 2021 lúc 12:46

C vì N=0 mà đk N>0 nên CT ko thực hiện câu lệnh đó

Bình luận (0)
Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:38

Câu Xin chao không được viết ra màn hình

Bình luận (0)