program podriad_idu_na_0;
var
n, x, k, k2:integer;
f:boolean;
begin
read(x);
f:=false;
repeat
if (f=false) and (x mod 10=0) then
begin
f:=true;
k:=k+1;
end
else
if (x mod 10=0) then
k:=k+1
else
begin
if k>k2 then
k2:=k;
k:=0;
f:=false;
end;
read(x);
until x=0;
write(k2);
readln;
end.
program proverka_na_ubivanie;
var
x,t:integer;
begin
read(x);
t:=x mod 10;
x:=x div 10;
while (x > 0) and ( t<x mod 10) do
x:=x div 10;
if x=0 then
write('Да')
else
write('Нет')
end.
program chisla_princip_piki_jami;
var
x,p:integer;
f:boolean;
begin
read(x);
f:=false;
if x>10 then
begin
if (x mod 10)>(x div 10 mod 10) then
p:=1
else
if (x mod 10)<(x div 10 mod 10) then
p:=0
else f:=true;
x:=x div 10;
while (x>10)and(f=false)
do
begin
if ((x mod 10)>(x div 10 mod 10) )and(p=0)then
p:=1
else
if ((x mod 10)<(x div 10 mod 10) )and(p=1)then
p:=0
else f:=true;
x:=x mod 10;
end;
if f=true then write('Нет')
else write('Да')
end
else
write('Слишком маленькое число')
end.
x1 ≈ 2,3
x2 ≈ - 1,3
Смотри картинки
Объяснение:
1) В ячейку B1 пишем y = x*x - 2
2) В ячейку C1 пишем y = x + 1
3) В ячейку A2 пишем x
4) В ячейку B2 пишем y
5) В ячейку C2 пишем y
6) В ячейку A3 пишем -1,5
7) В ячейку A4 пишем -1,25
8) Выделите ячейки А3 и А4 в правом нижнем углу появится зелёный квадратик, а рядом с ним квадратик с выпадающим списком, в котором надо выбрать Заполнение. Потяните за зелёный квадратик вниз до А19.
9) В ячейку В3 пишем формулу = A3*A3-2
10) Копируем ячейку В3, выделяем диапазон В4:В19 и вставляем эту формулу
11) В ячейку С3 пишем формулу =A3+1
12) Копируем ячейку С3, выделяем диапазон С4:С19 и вставляем эту формулу
13) Выделяем диапазон А2:С19 выбираем вкладку Вставка, затем Диаграмма, Точечная. Появляется график.
14) По графику смотрим координаты х в точках пересечения графиков.
15) В ячейку N5 пишем x1 ≈ 2,3
16) В ячейку N6 пишем x2 ≈ - 1,3
