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.
Câu 1:
am; a; at; ai; aj
Câu 2:
Mỗi chữ dùng nhiều nhất một lần có thể tạo ra vô số cái tên trong Pascal
A. -> x=7
Giải thích: 6 chia hết cho 3 -> ĐK đúng nên thực hiện câu lệnh x=x+1 <=> x=6+1=7
B. -> x= 12
Giải thích: Điều kiện 6 chia cho 3 dư 2 là sai, nhưng x>=5 là điều kiện đúng nên vẫn thực hiện câu lệnh x=2*x <=> x=2*6 =12
C. -> x=6
Giải thích: Điều kiện 6 chia 2 dư 1 và 6>10 đều sai nên không thực hiện câu lệnh tiếp theo
D. -> x=26
Giair thích: x chia 6 dư 0 ->ĐK đúng -> thực hiện câu lệnh :
x=x*x <=> x =6*6= 36
x=x-10 <=> x=36-10 = 26
refer
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
tham khảo
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
program day_du_cau_lenh;
uses crt;
var i,n:integer;
a:array[1..100]of intrger;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;
while i<=n do
begin
write('nhap a[',i,']:');readln(a[i]);
i:=i+1;
end;
for i:=1 to n do
if a[i]>=0 then write(a[i]) else write('');
readln;
end.
uses crt;
var a:string;
n,i,kt,kt1,t,x,kt2,j,d:integer;
b:array[1..255]of integer;
begin
clrscr;
write('Nhap so chu so:'); readln(n);
repeat
write('Nhap so a='); readln(a);
kt:=0;
for i:=1 to length(a) do
if not(a[i] in ['0'..'9']) then kt:=1;
if kt=0 then
begin
kt1:=0;
if length(a)<>n then kt1:=1;
end;
until (kt=0) and (kt1=0);
writeln('So chu so cua so ',a,' la: ',n);
d:=length(a);
t:=0;
for i:=1 to d do
begin
val(a[i],b[i],x);
t:=t+b[i];
end;
writeln('Tong cac chu so sau khi chia cho 3 la: ',t/3:4:2);
writeln('Cac chu so cua so ',a,' la so nguyen to la: ');
for i:=1 to d do
if b[i]>1 then
begin
kt2:=0;
for j:=2 to b[i]-1 do
if b[i] mod j=0 then kt2:=1;
if kt2=0 then write(b[i]:4);
end;
readln;
end.
var i,n,s,du,dem:integer;
Begin
While n<=0 do
Begin
Write('N = ');readln(n);
End;
For i:=1 to n do
If n mod i = 0 then
Begin
Write(i:7);
du:=du+1;
s:=s+i;
End;
Writeln('So uoc cua ',n,' la ',du);
Writeln('Tong cac uoc cua ',n,' la ',s);
For i:=1 to s do
If s mod i = 0 then dem:=dem+1;
If dem=2 then write(s,' la so nguyen to')
Else write(s,' khong la so nguyen to');
Readln;
End.