Размер файла, имя файла, расширение файла
Кек это присмешка
это как лол, что то типо очень смешно (смеюсь).
<span>Кек и лол одно и тоже
</span>
Var
A,Min:integer;
N:byte;
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
Begin
Read(A);
if (A>0)and(A mod 5 = 0)and(A < Min) then Min:=A;
End;
Write(Min)
End.
PROGRAM PR12_NV;
USES CRT;
VAR Y, A: REAL;
I: BYTE;
BEGIN
WRITE(' a = ');
READLN(A);
Y:=0;
FOR I:= 1 TO 10 DO
BEGIN
Y:= Y+ I*LN(A);
END;
WRITELN(' Y = ', Y:12:6);
END.