program dz2;
var a,b,c,d,f,max:Integer;
begin
Writeln('введи число');
read(a);
b:= a div 1000;
c:= (a div 100) mod 10;
d:= (a div 10) mod 10;
f:= a mod 10;
max:=b;
if b<c then
max:=c;
if c<d then
max:=d;
if d<f then
max:=f;
Write(max);
end.
1. n=10; i=3;
2. 3<=10 - да а=3*2+3=9; i=3+1=4;
3. 4<=10 - да а=4*2+3=11; i=4+1=5;
4. 5<=10 - да а=5*2+3=13; i=5+1=6;
5. 6<=10 - да а=6*2+3=15; i=6+1=7;
6. 7<=10 - да а=7*2+3=17; i=7+1=8;
7. 8<=10 - да а=8*2+3=19; i=8+1=9;
8. 9<=10 - да а=9*2+3=21; i=9+1=10;
9. 10<=10 - да а=10*2+3=23; i=10+1=11;
10. 11<=10 - нет;
Ответ: 23
// F#
let rec getNumberFromConsole _ =
let str = System.Console.ReadLine()
let mutable number = 0
if System.Int32.TryParse(str, &number)
then number
else getNumberFromConsole null
let rec getCommonNumber number1 number2 commonNumber multiplier =
if number1 > 0 && number2 > 0
then getCommonNumber (number1 / 10) (number2 / 10) (commonNumber + (number1 % 10) * 10 * multiplier + (number2 % 10) * multiplier) (multiplier * 100)
else commonNumber
[<EntryPoint>]
let main argv =
let number1 = getNumberFromConsole null
let number2 = getNumberFromConsole null
let result = getCommonNumber number1 number2 0 1
System.Console.WriteLine result
System.Console.ReadKey true |> ignore
0
<span>
</span>
Точно не знаю, но мне кажется, что так:
1-г
2-а
3-в
4-б