private int Min(int a, int b, int c) => Math.Min(a, Math.Min(b, c));
private char Min(char a, char b, char c) {
a = a < b ? a : b;
a = a < c ? a : c;
return a;
}
private double Min(double a, double b, double c, double d) => Math.Min(a, Math.Min(b, Math.Min(c, d)));
250,140625 килобайт
если нужно решение то вот:
i=64
K=128*256
I=?
Var a,b,c,s:double;BEGINWrite('Введите a:');Readln(a);Write('Введите b:');Readln(b);Write('Введите c:');Readln(c);s:=2*(a*b+a*c+b*c);WriteLn(s);Readln();END.
Var
n,i:integer;
s:string;
begin
Write('Введите натуральное число: '); Read(n);
Str(n,s);
for i:=2 to Length(s) do
if s[i]=s[i-1] then begin
Writeln('Пара одинаковых цифр-соседей ',s[i]);
Exit
end;
Writeln('В числе нет цифр, имеющих таких же соседей')
end.
Пример
Введите натуральное число: 375422453
Пара одинаковых цифр-соседей 2