Kết quả tìm kiếm

var A:array[1..100] of integer; n,i,s: integer; function snt (so:integer): boolean; var d, i: integer; begin d:=0; snt:=false; for i:=1 to so div 2 do if so mod i = 0 then inc(d); if d=1 then snt:=true; end; begin s:=0; write('Nhap n: '); readln(n); for i:=1 to n...

MYSTERY - Số huyền bí Đất nước Văn Lang thời cổ xưa đã có những hiểu biết tân tiến về số học. Tương truyền rằng, vua Hùng Vương thứ 17 cùng các trưởng lão trong triều đình đã phát minh ra các số huyền bí. Các số này giúp chỉ dẫn đường vào kho tàng của đất nước. Theo các chứng tích khảo cổ...

Trong bài thơ Đêm nay Bác không ngủ, tác giả Minh Huệ không kể đến lần thứ 2 anh đội viên thức dậy vì lần thứ nhất và lần thứ 3 anh đội viên là tự mình thức dậy, lần thứ 2 anh thức dậy không phải tự anh thức, mà do trong giấc ngủ mơ màng, anh cảm nhận được sự quan tâm, chăm sóc của Bác khi Bác...

mình chạy thử bị code 201 để mình tìm cách sửa

cảm ơn bạn

Nhập vào một số tự nhiên. Lập trình trả lời các câu hỏi sau: - n có bao nhiêu chữ số? - Tổng các chữ số của n bằng bao nhiêu? - Tìm chữ số đầu tiên của n. - Giả sử trong cách biểu hiện thập phân của n có dạng sau: akak-1 … a2a1a0. Hãy tính tổng S = ak – ak-1 + ak-2 – … a0. - Nhập vào số m(m ≤ số...

code nè: program so; uses crt; var a:array[1..100]of integer; n,i:integer; begin clrscr; write('nhap n=');read(n); for i:=1 to n do begin write('a[',i,']='); read(a); writeln; end; clrscr; for i:=1 to n do write(a:4); for i:=3 to n do if a[i-2]+a[i-1]=a then write(a:4); readln; readln end.

Học Mãi Radio đã phát sóng 2 số. Số đầu tiên: Những rung động đầu đời. Số thứ 2: Người phụ nữ tôi yêu.

vì máy mình không xài được alt+f5 nên dùng 2 lần readln

Cho hai xâu kí tự S1 và S2, cho phép thực hiện các phép biến đổi sau đối với xâu: – Luật 1: Thay thế một kí tự trong xâu bằng một kí tự khác. – Luật 2: Đổi chỗ hai kí tự liền nhau. – Luật 3: Chèn vào một kí tự. – Luật 4: Xoá bớt một kí tự. Ta gọi khoảng cách giữa hai xâu S1 và S2 là số nhỏ...

uses crt; var n,i:integer; t:real; begin clrscr; write('n=');read(n); for i:=1 to n do t:=t+(1/i); writeln('tong=',t:4:3); readln; readln end.

uses crt; var a:array[1..100]of integer; i,n,d:integer; begin clrscr; write('n=');read(n); for i:=1 to n do begin write('a[',i,']=');read(a); end; for i:=1 to n do write(a:4);writeln; for i:=1 to n do if a mod 2 <>o then inc(d); write('co ',d,' so le trong day so vua nhap); readln; readln end.