"L1" - Название файла
".TXT" - расширение файла (создан в блокноте, текстовый формат)
"1 КБ" - объем файла
"<span>02.03.2007.18:00</span>" - Дата создания документа.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-500,500); a.Println;
Writeln('min=',a.Min,', max=',a.Max,', Sп=',
a.Where(x->x in [10..99]).Sum)
end.
<u>Пример</u>
475 186 243 323 -497 23 -65 -2 180 74
min=-497, max=475, Sп=97
64 умножь на 64, и 640 раздели на получившееся число
Истинное суждение-мой компьютер персональный
ложное суждение-мой клмпьютер летит
1. for i := 2 to n div 2 do if (n mod i = 0) and ((n mod c = 0) or (n mod d = 0)) then s := s + i;
2. for i := 2 to n div 2 do if (n mod i = 0) then begin s := s + i; inc(c); end;
writeln( 'Среднее: ', s / c );