K
Khách

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.

24 tháng 2 2023

Câu 1. Để căn lề cho một đoạn văn bản nào đó trong giáo án điện tử đang thiết kế, trước tiên ta phải làm là:

A. Đưa con trỏ chuột vào giữa đoạn văn bản cần căn lề

B. Vào nút lệnh Home

C. Chọn cả đoạn văn bản phía dưới đoạn văn bản cần căn lề

D. Chọn một dòng bất kỳ trong đoạn văn bản cần căn lề

Trong một lần thám hiểm, Tom đã tìm thấy được một chiếc hộp bí mật. Để mở được chiếc hộp đó cần có mã khóa. Ở mặt trên và mặt dưới hộp Tom thấy hai dãy kí số S1 và S2 (gồm các kí tự từ 0 đến 9). Tom chắc một điều là hai dãy kí số này có liên quan đến mã số cần tìm. Sau một hồi suy nghĩ Tom cũng đã tìm ra quy luật để có được dãy mã khóa. Dãy mã khóa tìm theo các qui tắc sau:•         Gồm các kí tự...
Đọc tiếp

Trong một lần thám hiểm, Tom đã tìm thấy được một chiếc hộp bí mật. Để mở được chiếc hộp đó cần có khóa. Ở mặt trên mặt dưới hộp Tom thấy hai dãy số S1 S2 (gồm các tự từ 0 đến 9). Tom chắc một điều là hai dãy số này có liên quan đến số cần tìm. Sau một hồi suy nghĩ Tom cũng đã tìm ra quy luật để có được dãy mã khóa. Dãy khóa tìm theo các qui tắc sau:

         Gồm các tự số có mặt ở cả hai dãy kí số.

         Các kí tự số trong khóa chỉ xuất hiện duy nhất một lần.

         Giá trị khóa nhận được là một số đạt giá trị lớn nhất.

Yêu cầu: Cho hay dãy kí số. Hãy viết chương trình giúp Tom tìm ra mã khóa. Chương trình lưu với tên BAI4.PAS.Input: đọc từ file BAI4.INP  Input Output19012304034012 43210 • Dòng đầu ghi dãy kí số S1 ít hơn 255 số.• Dòng thứ hai ghi dãy kí số S2 ít hơn 255 số.Output: ghi ra file BAI4.OUT gồm dãy mã khóa cần tìm.

0

uses crt;

var x,t,i:integer;

begin

clrscr;

t:=0;

repeat

readln(x);

t:=t+x;

until x=0;

write(t);

readln;

end.

23 tháng 2 2023

Bạn có còn cách làm nào khác ko? Bởi vì mik lm thuyết trình bày này nên chỉ có thể làm bài trong phạm vi đang học thôi

uses crt;

var i,n,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

i:=1;

while i<=n do

begin

if trunc(sqrt(i))=sqrt(i) then begin inc(dem); write(i:4);

end;

i:=i+1;

end;

writeln;

writeln(dem);

readln;

end.

uses crt;

var a:integer;

begin

clrscr;

readln(a);

write(a);

readln;

end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do 

if a[i] mod 2=0 then t:=t+a[i];

writeln(t);

for i:=1 to n do

if i mod 2=1 then write(a[i]:4);

readln;

end.

23 tháng 2 2023

giả sử số thực là r

khi đó viết số thực r mà phần thập phân có 2 chữ số ta viết như sau:

r:10:2 có nghĩa là dùng 10 chữ số để viết số thực r, trong đó có 2 chữ số thập phân