Program ;Var x: Integer;Begin Repeat Write('Введите 3-значное число: '); Read(x); Until (x >= 100) and (x < 1000); Writeln('Результат: ', x mod 10, x div 100, x div 10 mod 10 );end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
