В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
alinakolesnikov
alinakolesnikov
09.09.2021 14:04 •  Информатика

Найдите функцию этого !​


Найдите функцию этого !​

Показать ответ
Ответ:
arinakirkot
arinakirkot
02.08.2022 04:33

var x, a, b, k: integer;

begin

write('Введите число: ');

readln(x);

write('Введите цифру: ');

readln(a);

b := 0;

k := 1;

while x > 0 do  //цикл пока данное число больше 0

begin

if x mod 10 <> a then // сравниваем последнюю цифру данного числа с указанной цифрой

begin  // если последняя цифра данного числа не равна указанной цифре

b := b+(x mod 10)*k;  // получаем новое число из числа b и последней цифры данного числа умноженной на коэффициент

k := k*10;  // увеличиваем коэффициент (единицы, десятки и т.д.)

end;

x := x div 10;  // отбрасываем последнюю цифру из данного числа

end;

writeln('Получилось: ', b);

end.

0,0(0 оценок)
Ответ:
nikzyryanov02
nikzyryanov02
17.11.2021 17:00

Компьютердің денсаулыққа кері әсері бірнеше факторлардан тұрады, олар электромагниттi, электростатикалық өрiс, ауаның иондалуы, оптикалық сәулелену, шу, жұмыс iстеу кезiндегi дененiң ширығуы. Осы факторлардың әрқайсысы бала денсаулығына керi әсер етуге өз үлесін қосады.

Объяснение:

Монитор алдында өткізілген ұзақ уақыт ерте ме, әлде кеш пе денсаулыққа кері әсерін тигізбей қоймайды. Ол нерв жүйесiнің бұзылуына, көру мүшесiне, иммунитетке, без және жыныс жүйелерiне әсер етуі мүмкін. Ұзақ та отыру, омыртқаға салмақ түсіріп, оның қыйсаюына әкелуі мүмкін.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота