viết chương trình:
-nhập vào 1 dãy số nguyên bất kì
-hiển thị dãy số vừa nhập
– yêu cầu kết hợp lệnh if và for
test chương trình:
i:=1,k:=3
for j:=1 to 10 do
k:=k+j*2;
i:-i+k
If k mod i:=0 then
k:=k*i
else
k:=k/i;
=> k=?
giúp mình vớii ạ
viết chương trình: -nhập vào 1 dãy số nguyên bất kì -hiển thị dãy số vừa nhập – yêu cầu kết hợp lệnh if và for test chương trình: i
By Jade
*Viết chương trình
uses crt;
var i,n:integer;
a:array[1..1000] of integer;
begin
clrscr;
write(‘Nhap n=’);readln(n);
writeln(‘Nhap day so’);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
writeln(‘Day so vua nhap’);
for i:=1 to n do
writeln(‘a[‘,i,’]=’,a[i]);
readln;
end.
*Test chương trình
k = 0;
*đánh lỗi khá nhiều :v
1. 2 yêu cầu đầu:
uses crt;
var i,n:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘);readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
end;
for i:=1 to n do write(a[i],’ ‘);
readln;
end.
2. yêu cầu cuối:
K=0 nhé bạn.
Đề không nhầm thì phải có begin, end. Mà k là số thực thì phép mod không thực hiện được. Ở trên là mình sửa chỗ k:=k/i thành k:=k div i rồi khai báo kiểu longint mới chạy được.