1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу. 2. Немного изменим ваш код и получим искомое значение x Искомое число х = 16293
var x, y, a, b, k: integer;
begin k:=10000; repeat x:=k; a := 0; b := 0; y := 1; while x > 0 do begin if (x mod 10) mod 2 = 0 then a := a * 10 + x mod 10 else begin y := y * 10; b := b * 10 + x mod 10 end; x := x div 10 end; a := a * y + b; k := k + 1; until a = 26391; writeln(a:8, k-1:8); end.
Инстаграм это популярная социальная сеть во всём мире, каждый человек больше 16 лет может в нём зарегестрироваться и выкладывать туда фотки, сториз и запускать прямой эфир. Так же на твой аккаунт могут подписываться и следить за твоей жизнью. Ютуб это приложение где можно смотреть видео на разные темы, а также стать блоггером самим, начав снимать видео. Телеграмм это мессенджер, в нём можно переписываться с близкими людьми и подписываться на интересные тебе каналы. Фейсбук тоже популярная социальная сеть. У нас она не сильно популярна, большенство пользователей это американцы и тд
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку