Я не знаю, что тут нужно пояснять. первый оператор вводит строку, второй выводит в цикле...
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var s:=ReadlnString('Исходная строка:');
for var i:=s.Length downto 1 do Writeln(Copy(s,1,i))
end.
<u><em>Тестовое решение:</em></u>
Исходная строка: Дронопотам
Дронопотам
Дронопота
Дронопот
Дронопо
Дроноп
Дроно
Дрон
Дро
Др
Д
var
a:byte;
begin
write('Введите число '); readln(a);
if (a div 10 = 4) or (a mod 10 = 4) then
writeln('В число входит цифра 4')
else
writeln('цифра 4 в число не входит');
end.
Это все что связано с органами чувств например
Яблоко зеленое
Песок холодный
Леденец сладкий
в системе счисления с основанием 6
вес разрядов (6)(1)
тогда 40(с основанием 6) = 24 + 0
41(с основанием 6) = 24 + 1
в ответе два числа 24, 25
2) оканчивается на 101
101 = 5
1101 = 13
10101 = 21
следующее уже больше 11101 = 29
3) в троичной системе веса разрядов (9)(3)(1)
21 в троичной системе = 6+1 = 7 в десятичной
121 = 9+6+1 = 16
221 = 18+6+1= 25
следующее уже больше 25-ти
321 = 27+6+1=34