М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
aliceBRATSKAIA
aliceBRATSKAIA
15.05.2023 19:12 •  Математика

Обозначыте предлоги и приставки .(Из под) столи выскочили собаки. 2. Тана простудилась (из, за) мороженого. 3. (Из, под) березовиков бабушка сварила суп. 4. (Из за) рубки ва берсзе тек сок, II. Спишите, вставив нужный предлог. 1. Земляника выглядынала (из, из-под) подберезовиков 2. Мы слезали простынно (из, из-пойду полодеяльника 3. Клоун вышел (из, из-за) кулис. 4. Горная зороги стале пепроходимой (ит, мз-за) запати. численные 1. Стите Нод сыделенныли надтеите часть речи 1. Дым багровыны кругами пода (на)остречу утренним лучам. сли. 2. Метель свирепствонала (в)течени недели 3. Он почти бежал, но все равно опаздывал (на)встречу. 4. Мы опоздали на поезд (в)следстви собственной неорганизованности. (в)близи, IV. Укажите, какие из данных предлогов не яиляются простыми Из, до, с, из-за, из под, (по)причине, от, у, н, к, из, под, около, благодаря, (со)стороны, (в)виду, во, над, при, про, о, (во)круг. V. Укажите, какие из данных предлогов яаляются непроизодными. (В)силу во на при, про, о, (подруге (на)астречу, (я бинчн, у, в, к, из- Стена рати скобки Приведите ук … …разбор 4 (Вттечени " дня Герасим два раза заходил к своей затворницс. Мы закончим свое повествование (в)продолжени 3 письма

👇
Открыть все ответы
Ответ:

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.

4,6(98 оценок)
Ответ:
12unicorn12
12unicorn12
15.05.2023

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.

4,6(63 оценок)
Это интересно:
Новые ответы от MOGZ: Математика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ