С начала суток секунд (N — целое Найти количество секунд с начала последней минуты. Язык программирования C#

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace ConsoleApp1

{

class Program

{

static void Main(string[] args)

{

int n;

n = Int32.Parse(Console.ReadLine());

int ans = n % 60;

Console.WriteLine("Число секунд:{0}", ans);

Console.ReadKey();

}

}

}

Объяснение:

Pascal

var

 s : string = 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';

 i : integer;

 s1, sR : string;

begin

 s:=s+' ';

 i :=1;

 sR :='';

 s1:='';

 while i <= length(s) do begin

   if (s[i] = ' ') then begin

      if s1[1] <> UpperCase(s1[1]) then

          sR := sr + s1 + ' ';

      s1:=''

   end

   else

     s1:=s1 + s[i];

   inc(i);

 end;

 delete(sR, length(sR), 1);

 print(sR);

end.

А вот на PascalABC.Net.  заметно короче будет

begin

 var s := 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';

 var a := s.ToWords.Where(v -> (v.First <> v.First.ToUpper)).JoinIntoString();

 println(a);

end.  

const

m=8;

var

arr: array[1..m] of integer;

max_num: integer;

i: integer;

Summ: integer;

min_num: integer;

x: integer;

begin

randomize;

Summ:=0;

x:=random(20,70);

for i := 1 to x do begin

arr[i] := random(10);

Summ+=arr[i];

writeln (arr[i]);//вывод элементов на экран

end;

max_num := arr[1];

for i := 2 to m do

if arr[i] > max_num then begin

max_num := arr[i];

end;

min_num := arr[1];

for i := 2 to m do

if arr[i] < min_num then begin

min_num := arr[i];

end;

writeln('Summ = ',summ);//Сумма

writeln ('Max = ',max_num);//Максимальный

writeln('Min = ', min_num);//минимальный элемент

writeln('Сount_of_elements = ',x);//количество элементов

end.

Объяснение:

вроде в коде подписано что нужно