<span>program Metka;
\\ Даем имя метке
label M1;
</span>
<span><span>\\ Даем имя переменной х
</span>var x: shortint;
</span>
<span><span>\\ Начало программы
</span>begin
</span>
<span><span>\\ Выводим текст с просьбой ввода числа
</span>M1:writeln ('Введите x>100');
</span>
<span><span>\\ Запрос на ввод числа
</span>readln(x);
</span>
<span><span>\\ Если введенное число <=100 то идем на М1
</span>if x<=100 then GOTO M1
</span>
<span><span>\\ Конец программы
</span>end.</span>
Два недочета
1) нет точки с запятой после <span>writeln ('x>100')
2) Неверное условие - должно быть <=, т.к. при х=100 условие х>100 не должно выполняться.
</span>3) Желательно попросить ввести х>100 - слово Введите - не лишнее
1) Кол-во информации=7 (128=2^i)
2) N=2^i, 2^5=32 вагона
3)вес одного символа от 64=6 бит, 6*3072= <span>
184368</span> бит/8/1024=<span><span>22,50586</span></span><span>Кбайта
4) 3*48*64*8(это вес 1 символа от 256)=</span><span>
73728 бит/8/1024=9 Кбайт</span>
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
<u>Пример</u>
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
<em>Решение для "древних паскалей"</em>
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.
N = int(input('n = '))
n1 = n // 100
n2 = n // 10 % 10
n3 = n % 10
if (n1<n2): n1,n2 = n2,n1
if (n2<n3): n2,n3 = n3,n2
if (n1<n2): n1,n2 = n2,n1
m = n1*100+n2*10+n3
print('m = ',m)
Пример:
<span>n = 149
m = 941</span>
98 целых 1 одна 4 четвертая или 98 целых 25 двадцать пять 100 сотых