1) В
2)С
3)А
4)В
5)В
6)А
7)А
8)В
9)Д
10)А
11)С
12)В
13)А
14)ал
Pascal:
program Project;
var
a,b,c: integer;
min, max: integer;
begin
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Write('c=');
Readln(c);
if (a>b) and (a>c) then
begin
max:=a;
if b>c then
begin
a:=c;
c:=max;
end
else
begin
a:=b;
b:=max;
end
end else
begin
if (b>a) and (b>c) then
begin
max:=b;
if a>c then
begin
b:=c;
c:=max;
end
else
begin
b:=a;
a:=max;
end
end else
begin
max:=c;
if a>b then
begin
c:=b;
b:=max;
end
else
begin
c:=a;
a:=max;
end
end
end;
Write('a=',a);
Write('b=',b);
Write('c=',c)
end.
// F#
[<EntryPoint>]
let main argv =
let rec ( ** ) x n =
match n < 1 with
| true -> 1
| false -> x * (x ** (n-1))
let rec sumDigits x =
match x with
| x when x < 10 -> (x, 1)
| x ->
let res = x / 10 |> sumDigits
((res |> fst) + (x % 10), (res |> snd) + 1)
let isArmstrong x =
let digitsInfo = sumDigits x
x = (fst digitsInfo) ** (snd digitsInfo)
let a = System.Console.ReadLine() |> System.Int32.Parse
let b = System.Console.ReadLine() |> System.Int32.Parse
let result = [a..b] |> List.filter (isArmstrong)
printf "Result: %A" result
System.Console.ReadKey true |> ignore
0
Так рассмотрим картинки по порядку
лучше рисовать составить таблицу или график
1) первый арбуз тяжелее третего
2) четвертый легче пятого
3) но третий тяжелее четвертого значит третий точно тежелее пятого и четвертый легче третьего и четвертый легче первого
4) второй легче пятого значит легче четвертого легче третьего и легче первого.
Самый легкий это второй
