var b,i,z,k: integer;
a: array[1..10000] of integer;
begin
read(b);
z: =0;
k: =0;
while b> 0 do
begin
z: =z+1;
a[z]: = b mod 10;
b: =b div 10;
end;
for i: =2 to z-1 do
if a[i]=a[i-1] or a[i]=a[i+1] then
k: =1;
if k=1 then writeln (‘да’)
else writeln (‘нет’);
end.
второй способ:
var a,b,c: integer;
begin
read(a);
k: =0;
c: =10; // это должно быть обязательно число, но не цифра
while a > 0 do
begin
b: =a mod 10;
a: =a div 10;
if b=c then k: =1;
c: =b;
end;
if k=1 then writeln (‘да’)
else (‘нет’);
end.
15. В качестве верного ответа следует принять любую непрерывную линию, проходящую через все указанные в тексте точки и верно отражающую характер изменения температуры.
16.Пусть — число деталей, изготовленных второй бригадой, тогда первая бригада изготовила деталей, а третья — деталей. Вместе три бригады изготовили 248 деталей, составим уравнение:
х+х/4+х+5=248 9х/4 =243 х=108
Вторая бригада изготовила 108 деталей, следовательно, первая бригада изготовила деталей, а третья — 113 деталей. Таким образом, третья бригада изготовила на 113 − 27 = 86 деталей больше.
ответ: 86.
10.За пять лет завод спустит в Каспийское море: 5 · 800 · 12 · 365 = 17 520 000 л, или 17 520 000 : 1 000 = 17 520 куб. м отходов.
Объем Каспия 69 400 км³ или 69 400 000 000 000 м3. Найдем отношение объема отходов к общему объему водоёма:
17 520 : 69 400 000 000 000 < 0,00001 %.
Изменение объема ничтожно мало. Такое увеличение уровня воды практически невозможно зафиксировать.
ответ: нет.
30×30÷100=9
30-9=21
Жауабы Екінші бөлігі 21м