Наибольшее число Напишите программу, которая определяет, - вопрос №13075821 от ксюня264 15.06.2020 11:27

Question

Информатика: Наибольшее число Напишите программу, которая определяет, есть ли во введённой строке десятичные цифры, и выводит наибольшее число, которое можно составить из этих цифр. Ведущих нулей в числе быть не должно (за исключением числа 0, запись которого содержит ровно одну цифру). Если цифр нет, программа должна вывести число −1. Использовать встроенные сортировки запрещено. Входные данные Входная строка содержит произвольные символы. Выходные данные Программа должна вывести наибольшее число, которое можно

ксюня264 · Answer

1.program xopow1;   uses   crt;   var   a, b, Sek: integer;   begin   writeln( Введите границы: );   repeat     readln(a, b);   until b = a;   clrscr;   for a := a to b do    begin     Sek := a * 60;     writeln(a, мин. = , sek, сек. )   end end.2.program xopow2;  uses crt; Var z:integer; f,x,y:real; Begin clrscr; Writeln;X:=10000;Y:=(x/100)*10;for z:=1 to 7 do  Begin X:=x+y; Writeln(Z, -й день тренировок спортсмен пробежал ,X:3:2, Км. ); End; Writeln( Нажмите Enter... );  Readln; end....