cho hỏi 
công thức tìm số đối xứng trong pascal
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.
Những câu hỏi liên quan
GB
26 tháng 3 2023
program TimSoDoiXung;
var
f_in, f_out: text;
n, num, tmp, rem: integer;
begin
// mở file đầu vào
assign(f_in, 'sdx.inp');
reset(f_in);
// mở file đầu ra
assign(f_out, 'sdx.out');
rewrite(f_out);
// đọc n từ file đầu vào
readln(f_in, n);
// tìm các số đối xứng
for num := 1 to n do
begin
tmp := num;
rem := 0;
while tmp <> 0 do
begin
rem := rem * 10 + tmp mod 10;
tmp := tmp div 10;
end;
if num = rem then
writeln(f_out, num);
end;
// đóng file đầu vào và đầu ra
close(f_in);
close(f_out);
end.
6 tháng 11 2023
Gọi công thức của hàm số bậc hai là \(y=ax^2+bx+c\)
Trục đối xứng là x=3 nên \(-\dfrac{b}{2a}=3\)
=>b=-2a
Thay x=0 và y=-16 vào (d), ta được:
\(a\cdot0^2+b\cdot0+c=-16\)
=>c=-16
=>\(y=ax^2+bx-16\)
Thay x=-2 và y=0 vào (d), ta được:
\(a\cdot\left(-2\right)^2+b\left(-2\right)-16=0\)
=>4a-2b-16=0
=>\(4a-2\cdot\left(-2a\right)=16\)
=>8a=16
=>a=2
=>b=-2a=-4
Vậy: Công thức cần tìm là \(y=2x^2-4x-16\)
HQ
Hà Quang Minh
Giáo viên
23 tháng 9 2023
a) Trục đối xứng là đường thẳng \(x = 2\)
Đỉnh là \(I\left( {2; - 1} \right)\)
b) Từ đồ thị ta thấy trên khoảng \(\left( { - \infty ;2} \right)\) thì hàm số đi xuống nên hàm số nghịch biến trên \(\left( { - \infty ;2} \right)\).
Trên khoảng \(\left( {2; + \infty } \right)\) thì hàm số đi xuống nên đồng biến trên \(\left( {2; + \infty } \right)\).
c) ) Gọi hàm số là \(y = a{x^2} + bx + c\left( {a \ne 0} \right)\)
Đồ thị hàm số có đỉnh là \(I\left( {2; - 1} \right)\) nên ta có:
\(\left\{ \begin{array}{l} - \frac{b}{{2a}} = 2\\a{.2^2} + b.2 + c = - 1\end{array} \right. \Leftrightarrow \left\{ \begin{array}{l}b = - 4a\\4a + 2b + c = - 1\end{array} \right.\)
Ta lại có điểm \(\left( {1;0} \right)\) thuộc đồ thị nên ta có: \(a + b + c = 0\)
Vậy ta có hệ sau:
\(\left\{ \begin{array}{l}b = - 4a\\4a + 2b + c = - 1\\a + b + c = 0\end{array} \right.\)\( \Leftrightarrow \left\{ \begin{array}{l}b = - 4a\\4a + 2.\left( { - 4a} \right) + c = - 1\\a + \left( { - 4a} \right) + c = 0\end{array} \right.\)\( \Leftrightarrow \left\{ \begin{array}{l}b = - 4a\\c - 4a = - 1\\c - 3a = 0\end{array} \right.\)\( \Leftrightarrow \left\{ \begin{array}{l}b = - 4a\\a = 1\\c = 3\end{array} \right. \Leftrightarrow \left\{ \begin{array}{l}b = - 4\\a = 1\\c = 3\end{array} \right.\)
Vậy parabol là \(y = {x^2} - 4x + 3\)
7 tháng 5 2021
const fi='songuyen.inp';
fo='tong.out';
var f1,f2:text;
a:array[1..100]of integer;
n,i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln(f2,dem);
close(f1);
close(f2);
end.
13 tháng 6 2023
program abcdef;
uses Crt;
var
k, lowerLimit, upperLimit, i, j, reversed, temp, remainder: integer;
isPrime, isPalindrome: boolean;
begin
clrscr;
write('Nhap so chu so k (1<=k<=9): ');
readln(k);
lowerLimit := 1;
for i := 1 to k - 1 do
lowerLimit := lowerLimit * 10;
upperLimit := lowerLimit * 10 - 1;
writeln('Cac so nguyen to doi xung co ', k, ' chu so la:');
for i := lowerLimit to upperLimit do
begin
// Kiểm tra số nguyên tố
isPrime := True;
if i < 2 then
isPrime := False
else
for j := 2 to trunc(sqrt(i)) do
if i mod j = 0 then
beginisPrime := False;break;end;
// Kiểm tra số đối xứng
if isPrime then
begin
reversed := 0;
temp := i;
while temp <> 0 dobeginremainder := temp mod 10;
reversed := reversed * 10 + remainder;
temp := temp div 10;
end;
isPalindrome := (i = reversed);
if isPalindrome then
writeln(i);
end;
end;
readln;
end.
Uses crt;
var st: string;
function KT (xau: string): boolean;
var i, dem: integer;
begin
dem:=0;
for i:= 1 to length(st) div 2 do
if xau<>xau[length(xau)-i+1] then inc(dem);
if dem<>0 then KT:=False else KT:=True;
end;
begin
clrscr;
write ('Nhap so co do dai khong qua 100 chu so: '); readln (st);
if length(st)>100 then
begin
write ('Nhap khong hop le! An Enter va chay lai!');
readln; exit;
end;
if KT(st)=True then write ('Day la so doi xung!') else write ('Day la so khong doi xung!');
readln
end.
mik đây ngu tin lắm thông cảm