Предположим, что это две разные задачи. Окей. 1. Var x : real;Beginreadln(x);if (x<=4) and (x>=0) thenWriteln('Число принадлежит интервалу от 0 до 4')elseWriteln('Число не принадлежит интервалу от 0 до 4');Readln(x);end. // Readln в конце можно не писать, это делается для того, чтобы //программа остановилась и можно было посмотреть результат!
2. Var x : longint;BeginReadln(x);if (x mod 5 = 0) thenWriteln('Число делится на 5!')elseWriteln('Число не делится на 5!');if (x mod 10 = 0) thenWriteln('Число делится на 10!')elseWriteln('Число не делится на 10!');Readln(x);end. // Тут с Readln та же фигня
Сначала смотрим на то, что происходит в цикле с переменной а. К ней добавляются по 2 единицы за шаг цикла. Так как программа выводит значение а, равное 4, делаем вывод, что цикл повторится 2 раза. Далее посмотрим на условие окончания. Цикл с предусловием while будет выполниться, пока x больше 0, а в самом цикле происходит целочислительное деление x на 1000, что означает "отщепление" от числа по 3 цифры младших разрядов. Из этого следует, что число должно иметь как минимум 4 цифры, чтобы цикл повторился 2 раза. Значение b должно быть равно 13. 13 - простое число. Следовательно, равно 1*13. Поставим 13 в левый конец числа, а 1 - в правый. Третий и второй знаки будут равны 0. Таким образом получим число 13001. ответ: 13001
1125•8:6=1500 символов