змінити тло на наступне тло
доторкається межа
коли натиснуто
чекати 0.2 секунд
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
procedure СредняяЦифра(Число: int64; var Цифра: integer);
begin
var СтроковоеПредставление := Число.ToString;
var ЧислоРазрядов := СтроковоеПредставление.Length;
var ПозицияЦифры := ЧислоРазрядов div 2 + 1;
Цифра := СтроковоеПредставление[ПозицияЦифры].ToDigit
end;
begin
var ЗаданноеЧисло: int64;
Read(ЗаданноеЧисло);
var ИскомаяЦифра: integer;
СредняяЦифра(ЗаданноеЧисло, ИскомаяЦифра);
ИскомаяЦифра.Println
end.
<h2>Пример</h2><h2>123643523</h2><h2>4 </h2>
#include <iostream>
#include <math.h>
using namespace std;
int main() {
cout.precision(100);
double a, b, c, D, x1, x2;
cin >> a >> b >> c;
D=b*b-4*a*c;
/* if (D<0) {
cout << "the equation has no solutions in real numbers" << endl;
return 0;
}
if (D==0) {
cout << "x=" << -b/(2*a) << endl;
return 0;
}
Если что, это фрагмент программы для проверки D=0 и D<0. Если не нужен - просто сотри*/
D=sqrt(D);
x1=(-b+D)/(2*a);
x2=(-b-D)/(2*a);
if (x1<x2)
cout << "x1=" << x1 << endl << "x2=" << x2 << endl;
else cout << "x1=" << x2 << endl << "x2=" << x1 << endl;
return 0;
}
Var a,des,ed,raznost:int64;
begin
read(a);
ed:=a mod 10;
des:=(a mod 100) div 10;
raznost:=des-ed;
write(raznost);
end.
<!DOCTYPE html>
<html>
<head>
<script>
function BbIBOD()
{
let n = document.getElementById("BBOD").value;
let BbIBOD = document.getElementById("BbIBOD");
let S = "";
let F = "";
for (let j = 0; j < n; j++)
{
S += '*';
}
for (let i = 0; i < n; i++)
{
F += "<div>" + S + "</div>";
}
BbIBOD.innerHTML = F;
}
</script>
</head>
<body>
<form onSubmit="BbIBOD(); return false;">
<label for="BBOD" >n = </label><input id="BBOD" type="text">
<div id="BbIBOD"></div>
</form>
</body>
</html>