Пользователь вводит трехзначное число, программа выводит новое число, состоящее из цифр старого числа, расположенных по возрастанию. Например 453, вывод 345. Программа КуМир.

Должно работать, на всякий случай проверьте

Вариант 1

алг

нач

цел n, a, b, c

ввод n

a:= mod (n, 10)

b:= div(mod(n, 100), 10)

c:= div (n, 100)

если b<a

то n:=b

b:=a

a:=n

все

если c<b

то n:=c

c:=b

b:=n

все

если b<a

то n:=b

b:=a

a:=n

все

вывод a, b, c

кон

Вариант 2:

алг

нач

цел n, a, b, c

ввод n

a:= mod (n, 10)

b:= div(mod(n, 100), 10)

c:= div (n, 100)

вывод int(min(a,min(b, c))), int(a+b+c-min(a, min(b, c))-max(a, max(b, c))), int(max(a,max(b, c)))

кон

1) полная таблица истинности каждого выражения с пятью переменными содержит 2^5 = 32 строки;

2) в каждой таблице содержится по 4 единицы и по 28 нулей, ( то есть 32-4);

3) выражение a v - b равно нулю тогда, когда a = 0 или b = 1;

4) min количество единиц в таблице истинности выражения a v - b будет тогда, когда там будет наибольшее число нулей, то есть в max количество строк одновременно a = 0 и b = 1;

5) по условию a = 0 в 28 строках, и b = 1 в 4 строках, поэтому выражение a v - b может быть равно нулю не более чем в 4 строках, а оставшиеся 32 – 4 = 28 могут быть равны 1.

ответ: 28.

1)program p1;

var m,n: integer;

begin

write('вводите число: '); readln(n);

if n> =100 then

begin

m: = n mod 10;

writeln('последняя цира: ',m);

m: =n div 10 mod 10;

writeln('предпоследняя цира: ',m);

end;

end.

2)program p2;

var t1,t2,t3,d1,d2,d3,v1,v2,v3: integer;

vsr: real;

begin

write('вводите время езды(ч): '); readln(t1,t2,t3);

write('вводите скорость(км/ч): '); readln(v1,v2,v3);

d1: =v1*t1;

d2: =v2*t2;

d3: =v3*t3;

vsr: =(d1+d2+d3)/(t1+t2+t3);

writeln('средяя скорость= ',vsr: 1: 2,'км/ч');

end.