// PascalABC.NET 3.1, сборка 1246 от 23.05.2016
begin
var s:=ReadAllLines('1.txt');
Writeln('Считано:'); s.Println(NewLine);
var a:=s.Select(x->x.Replace(';',' ')).ToArray
.JoinIntoString.ToReals.Where(x->(x>0) and (Frac(x)=0))
.Select(x->Trunc(x)).ToArray;
Writeln('Получено:'); a.Println();
Writeln('Справочно: тип А - ',a.GetType);
end.
<u><em>Тестовое решение</em></u>
Считано:
1;-312;-41.11;412.11
43.63;-15;27;7.62;3;-14
1342;23.23;-32.19;18
Получено:
1 27 3 1342 18
Справочно: тип А - System.Int32[]
<u>Тестовый файл 1.txt дан во вложении.</u>
1 байт=8 битов
1 килобайт (Кб)=1024 байта =210 байтов
1 мегабайт (Мб)=1024 килобайта =210 килобайтов=220 байтов
1 гигабайт (Гб)=1024 мегабайта =210 мегабайтов=230 байтов
1 терабайт (Гб)=1024 гигабайта =210 гигабайтов=240 байтов
Запомните, приставка КИЛО в информатике – это не 1000, а 1024, то есть <span>210</span> .
1 задача :
var n:integer;
BEGIN read(n); writeln(n div 60,' мин.',n mod 60,' сек.'); END.