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.
program bt;
uses crt;
var n,i,j:word;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n+1 do a[i]:=0;
a[1]:=1;
for i:=0 to n do
begin
for j:=i+1 downto 2 do a[j]:=a[j]+a[j-1];
for j:=1 to i+1 do write(a[j]:3);
writeln;
end;
readln;
end.
1) Sai --> Program Chuong_trinh;
2) Đúng
3) Đúng
4) Đúng
5) Sai --> s:=s+1;
6) Sai -->i:=1+1;
7) Sai --> End;
8 và 9) Sai --> Writeln(s); và Readln;
10) Sai --> End.
Đúng thì like cho mình nha :)))
- Các bạn tham khảo đáp án tại đây : Câu hỏi của Tin học [Hỗ trợ] - Tin học lớp 8 | Học trực tuyến
- Dự tính là vòng 1 sẽ lấy 20 bạn nhưng một số bạn đạt điểm 5 mình đã gửi bài khảo sát nhưng chưa có phản hồi và bạn làm của các bạn không có chất lượng . Vì vậy trong vòng 2 sẽ loại những bạn không có kết quả tốt . Các bạn có kết quả tốt sẽ góp mặt ở vòng 3- Chung Kết
Chúc mừng các bạn đã vào vòng 2 nhé.
Ước gì cuộc thi Tin này năm sau mở nhỉ ? Tại năm nay em mới học lớp 7, học đc mấy cái nâng cao về Excel nhưng mà cuộc thi lại về Pascal .
Buồn nhưng cũng chúc mừng nhé.
Kết quả in ra màn hình là x=9,y=7
Đây là câu lệnh để hoán vị giá trị của x và y cho nhau.
đây chỉ là bài ví dụ cho bạn áp dụng nhé:
var i,j,k,n,m:longint; f1,f2:text; S,St:string; function ktsnt(n:qword):boolean; var k:qword; begin ktsnt:=false; k:=2; if n<2 then exit; if n=2 then ktsnt:=true; while k*k <= n do begin if n mod k = 0 then exit; inc(k); end; ktsnt:=true; end; {---------------------------------------------------------------} function daonguoc(n:qword):boolean; begin str(n,S);St:=''; for i:=length(S) downto 1 do St:=St+S[i]; val(St,k); if ktsnt(k) then daonguoc:=true else daonguoc:=false; end; {---------------------------------------------------------------} begin assign(f1,'daonguoc.inp');reset(f1); assign(f2,'daonguoc.out');rewrite(f2); readln(f1,n,m); for j:=n to m do if daonguoc(j) then writeln(f2,j); close(f1);close(f2);end.