<span>Во-первых, примем ограничение: число должно быть натуральным. т.е. целым и положительным без записи знака.
Во-вторых, возможны два принципиально разных алгоритма.
Первый
алгоритм предполагает, что число помещается оператором ввода в
целочисленную переменную и тогда мы получаем первую цифру, как
результат целочисленного деления на 10, третью - как остаток от целочисленного деления на 100, а вторую - как остаток от деления на 10 результата целочисленного деления на 10.
Второй алгоритм предполагает работу с символьным
изображением числа, т.е. после ввода получается символьная строка длиной
три. Первый (левый) символ будет первой цифрой числа и так далее.
Ниже приводятся тексты программ на языке Pascal, реализующие эти алгоритмы.</span>
<em>**********************************</em>
var
n:integer;
begin
Write('Введите целое трехзначное число без знака: '); Readln(n);
Writeln(n mod 10,(n div 10) mod 10,n div 100)
end.
<em><u>Тестовое решение:
</u></em>Введите целое трехзначное число без знака: 123
321
<em>**********************************</em>
var
n:string;
begin
Write('Введите целое трехзначное число без знака: '); Readln(n);
Writeln(n[3],n[2],n[1])
end.
<em><u>Тестовое решение:
</u></em>Введите целое трехзначное число без знака: 123
321
Ответ:
a:3:0
Объяснение:
Первое число - ширина поля вывода. Если ширина поля больше, чем длина числа, то вывод дополняется пробелами перед числом.
Второе число - количество цифр после запятой.
По-английски формат "Value : field_width : decimal_field_width"
6135 учебников так как 1 символ равен одному байту
Я поняла так :
Кит
Кис
Кум
Куст
Киса
Кира
Кипеть
Кипарис
По возрастанию . (может и не правильно , я не уверена , но я поняла так)
Var s:string;
begin
readln(s);
writeln(pos(' ',s));
end.
Тестовое решение:
Всем привет!
5