Дан фрагмент электронной таблицы. Какое наибольшее целое число должно быть записано в ячейке A1, чтобы построенная после выполнения вычислений диаграмма по значениям диапазона ячеек A2:D2 соответствовала рисунку? Известно, что все значения диапазона, по которым построена диаграмма, положительные.

Если нужен паскаль:

1.

var

 a,b:integer;

begin

 readln(a,b);

 writeln(a,'+',b,'=',a+b);

 writeln(a,'*',b,'=',a*b);

end.

2.

var

 n,c,m,h:integer;

begin

 readln(n);

 m:=n div 60;

 c:=n mod 60;

 if m>=60 then

   begin

     h:=m div 60;

     m:=m mod 60;

     if m<>0 then

       if c<>0 then

         write(h,'ч ',m,'мин ',c,'с')

       else

         write(h,'ч ',m,'мин ')

     else

       if c<>0 then

         write(h,'ч ',c,'с')

       else

         write(h,'ч');

   end

     else

       if m<>0 then

         if c<>0 then

           write(m,'мин ',c,'с')

         else

           write(m,'мин ')

       else

         write(c,'с');

end.

--- C# 7.3 ---

using System;

using System.Collections.Generic;

using System.Linq;

namespace CSLear

{

   class Program

   {

       static void Main(string[] args)

       {

           string[] RawString = Console.ReadLine().Split(' ', ',' , '.');

           int Shortest = RawString.Select(s => s.Length).Min();

           for (int index = 0; index < RawString.Count(); index++)

           {

               ref string selected = ref RawString[index];

               if (selected.Length == Shortest && selected != "")

               {

                   selected = selected.Insert(0, "*");

               }

           }

           Console.WriteLine(string.Join(" ", RawString));

           Console.ReadKey();

       }

   }

}